suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Change a bunch of "~%" and "~n" in format strings to "\n".

Browse Source 
original commit: 7dc4d2e5a6
This commit is contained in:
Eli Barzilay 2010-08-25 17:16:32 -04:00
parent 9bebb5a98d
commit 33624300a8
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/tests/compiler/zo-test.rkt
View File

@ -203,21 +203,21 @@ exec racket -t "$0" -- -s -t 60 -v -R $*
(define succs (length (hash-ref success-ht kind-name empty))) (define succs (length (hash-ref success-ht kind-name empty)))
(define all (+ fails succs)) (define all (+ fails succs))
(unless (zero? all) (unless (zero? all)
(printf "~S~n" (printf "~S\n"
`(,kind-name `(,kind-name
(#f ,fails) (#f ,fails)
(#t ,succs) (#t ,succs)
,all)))) ,all))))
(newline) (newline)
(printf "~a tests passed~n" (length (hash-ref success-ht 'everything empty))) (printf "~a tests passed\n" (length (hash-ref success-ht 'everything empty)))
(let ([common-errors (let ([common-errors
(sort (filter (λ (p) ((car p) . > . 10)) (sort (filter (λ (p) ((car p) . > . 10))
(hash-map errors (λ (k v) (cons v k)))) (hash-map errors (λ (k v) (cons v k))))
> #:key car)]) > #:key car)])
(unless (empty? common-errors) (unless (empty? common-errors)
(printf "Common Errors:~n") (printf "Common Errors:\n")
(for ([p (in-list common-errors)]) (for ([p (in-list common-errors)])
(printf "~a:~n~a~n~n" (car p) (cdr p))))))))) (printf "~a:\n~a\n\n" (car p) (cdr p)))))))))
(thread-wait final-thread) (thread-wait final-thread)