test/scm.test: update.
authorJan Nieuwenhuizen <janneke@gnu.org>
Mon, 10 Oct 2016 20:42:05 +0000 (22:42 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Mon, 10 Oct 2016 20:42:05 +0000 (22:42 +0200)
test/scm.test

index 4bd39563d5d812582557546e2353760eb1ea917e..59a213ef3ed5bfc8bee53219a623d5a100c5ec90 100644 (file)
 (pass-if "char-alphabetic?" (seq? (char-alphabetic? #\a) #t))
 (pass-if "char-alphabetic? 2" (seq? (char-alphabetic? #\[) #f))
 
-(newline)
-(display "passed: ") (display (car (result))) (newline)
-(display "failed: ") (display (cadr (result))) (newline)
-(display "total: ") (display (apply + (result))) (newline)
-
-(exit (cadr (result)))
+(result 'report)