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

changed test printout so that the summary is to stdout, not stderr

Browse Source 
svn: r16524
This commit is contained in:
Robby Findler 2009-11-03 18:27:00 +00:00
parent 82b9a9f4dd
commit da743d4a49
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/redex/private/matcher-test.ss
View File

@ -631,13 +631,13 @@
(cond
[(= failures 0)
(fprintf (current-error-port) "matcher-test.ss: all ~a tests passed.\n" test-count)]
(printf "matcher-test.ss: all ~a tests passed.\n" test-count)]
[else
(fprintf (current-error-port) "matcher-test.ss: ~a test~a failed.\n"
failures
(if (= failures 1)
""
"s"))]))
(printf "matcher-test.ss: ~a test~a failed.\n"
failures
(if (= failures 1)
""
"s"))]))
;; mk-hasheq : (listof (cons sym any)) -> hash-table
;; builds a hash table that has the bindings in assoc-list