From ab544948e2a5abbc0b1bb10de920c575ae5e1a84 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sat, 8 Aug 2009 06:49:36 +0000 Subject: [PATCH] no plural if only one test svn: r15687 --- collects/tests/eli-tester.ss | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/collects/tests/eli-tester.ss b/collects/tests/eli-tester.ss index 0fb6027370..b839654c11 100644 --- a/collects/tests/eli-tester.ss +++ b/collects/tests/eli-tester.ss @@ -131,7 +131,7 @@ (test-context #f) (let ([num (mcar c)] [exns (mcdr c)]) (if (null? exns) - (printf "~a tests passed\n" num) + (printf "~a test~a passed\n" num (if (= num 1) "" "s")) (error 'test "~a/~a test failures:~a" (length exns) num (string-append* (append-map (lambda (e) (list "\n" (exn-message e))) @@ -176,6 +176,14 @@ (test* (raise 1) =error> "foo") =error> "raised non-exception" (test* #:failure-message "FOO" (/ 0) => 1) =error> "FOO" (test* #:failure-message "FOO" (/ 0)) =error> "FOO" + + ;; test possitive message + (let ([o (open-output-bytes)]) + (list (begin (parameterize ([current-output-port o]) (test* 1 => 1)) + (get-output-bytes o #t)) + (begin (parameterize ([current-output-port o]) (test* 1 => 1 (odd? 1))) + (get-output-bytes o #t)))) + => '(#"1 test passed\n" #"2 tests passed\n") ) ;; SchemeUnit stuff