;; $Id: null.tst,v 1.1 2001/11/20 05:32:13 leavens Exp leavens $

(newline)
(displayln "Test case of $Date: 2001/11/20 05:32:13 $")
(newline)

(run-regression-tests-equal?
 `(
   ( (run "null?(emptylist)") ==> 1)
   ( (run "emptylist") ==> () )
   ( (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) )
   ))