test/scm.test: update.

diff --git a/test/scm.test b/test/scm.test
index 4bd39563d5d812582557546e2353760eb1ea917e..59a213ef3ed5bfc8bee53219a623d5a100c5ec90 100644 (file)
--- a/test/scm.test
+++ b/test/scm.test
@@ -177,9 +177,4 @@
 (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)