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 all (+ fails succs))
(unless (zero? all)
(printf "~S~n"
(printf "~S\n"
`(,kind-name
(#f ,fails)
(#t ,succs)
,all))))
(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
(sort (filter (λ (p) ((car p) . > . 10))
(hash-map errors (λ (k v) (cons v k))))
> #:key car)])
(unless (empty? common-errors)
(printf "Common Errors:~n")
(printf "Common Errors:\n")
(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)