;;; $Id: all-numbers.tst,v 1.5 2006/08/29 06:23:45 leavens Exp leavens $
(newline)
(newline)
(displayln "Test case of $Date: 2006/08/29 06:23:45 $")
(newline)
(run-regression-tests-equal?
`(
( (all-numbers? '()) ==> #t )
( (all-numbers? '(3)) ==> #t )
( (all-numbers? '(2 3)) ==> #t )
( (all-numbers? '(1 2 3)) ==> #t )
( (all-numbers? '(is this 4)) ==> #f )
( (all-numbers? '(5 or 6 is this?)) ==> #f )
( (all-numbers? '(not this either?)) ==> #f )
( (all-numbers? '(94 27 hrumphf 42)) ==> #f )
( (all-numbers? (cons 3 (cons 4 '()))) ==> #t )
))
(newline)
(newline)