Author: bernhard
Date: Fri Jan 4 09:10:04 2008
New Revision: 24541
Modified:
trunk/languages/eclectus/tap_helpers.scm
trunk/languages/eclectus/tests-driver.scm
Log:
[Eclectus]
Nicer output from the TAP helpers.
Modified: trunk/languages/eclectus/tap_helpers.scm
==============================================================================
--- trunk/languages/eclectus/tap_helpers.scm (original)
+++ trunk/languages/eclectus/tap_helpers.scm Fri Jan 4 09:10:04 2008
@@ -9,13 +9,13 @@
(define plan
(lambda (num-tests)
- ( printf "~s..~s\n" 1 num-tests)))
+ ( printf "~a..~a\n" 1 num-tests)))
(define pass
(lambda (test-num test-description)
- ( printf "ok ~s - ~s\n" test-num test-description)))
+ ( printf "ok ~a - ~a\n" test-num test-description)))
(define fail
(lambda (test-num test-description)
- ( printf "not ok ~s - ~s\n" test-num test-description)))
+ ( printf "not ok ~a - ~a\n" test-num test-description)))
Modified: trunk/languages/eclectus/tests-driver.scm
==============================================================================
--- trunk/languages/eclectus/tests-driver.scm (original)
+++ trunk/languages/eclectus/tests-driver.scm Fri Jan 4 09:10:04 2008
@@ -80,8 +80,8 @@
(run-compile expr)
(execute)
(if (string=? expected-output (get-string))
- (pass ( + test-id 1 ) (format "~s: ~s\n" test-name expr))
- (fail ( + test-id 1 ) (format "~s: expected ~s, got ~s\n" test-name expr
(get-string) ))))
+ (pass ( + test-id 1 ) (format "~a: ~a" test-name expr))
+ (fail ( + test-id 1 ) (format "~a: expected ~s, got ~a" test-name expr
(get-string) ))))
(define (emit . args)
(apply fprintf (compile-port) args)
