test/scm.test: update.
This commit is contained in:
parent
2e1685dc2d
commit
c6ce1662e4
|
@ -177,9 +177,4 @@
|
||||||
(pass-if "char-alphabetic?" (seq? (char-alphabetic? #\a) #t))
|
(pass-if "char-alphabetic?" (seq? (char-alphabetic? #\a) #t))
|
||||||
(pass-if "char-alphabetic? 2" (seq? (char-alphabetic? #\[) #f))
|
(pass-if "char-alphabetic? 2" (seq? (char-alphabetic? #\[) #f))
|
||||||
|
|
||||||
(newline)
|
(result 'report)
|
||||||
(display "passed: ") (display (car (result))) (newline)
|
|
||||||
(display "failed: ") (display (cadr (result))) (newline)
|
|
||||||
(display "total: ") (display (apply + (result))) (newline)
|
|
||||||
|
|
||||||
(exit (cadr (result)))
|
|
||||||
|
|
Loading…
Reference in a new issue