Deprecated: The each() function is deprecated. This message will be suppressed on further calls in /home/zhenxiangba/zhenxiangba.com/public_html/phproxy-improved-master/index.php on line 456
;; $Id: null.tst,v 1.5 2006/10/17 05:32:26 leavens Exp leavens $
(newline)
(displayln "Test case $RCSfile: null.tst,v $ of $Date: 2006/10/17 05:32:26 $")
(newline)
(run-regression-tests-equal?
`(
( (run "emptylist") ==> () )
( (run "null?(emptylist)") ==> 1)
( (run "cons(342, emptylist)") ==> (342) )
( (run "null?(cons(342,emptylist))") ==> 0)
( (run "if null?(cons(342,emptylist)) then +(5, 4) else -(5, 1)") ==> 4 )
( (run "if null?(emptylist) then +(5, 4) else -(5, 1)") ==> 9 )
( (run "if null?(cons(342,emptylist))
then cons(342,emptylist)
else emptylist") ==> () )
( (run "if null?(emptylist)
then cons(342,emptylist)
else emptylist") ==> (342) )
))