;
;	test script for programming assignment 1
;	fall term, 2001
"Test Script"
"Values should be repeated, first your result, then correct result"
(plusOne 42)
43
(plusOne 0)
1
(addToEnd 3 '(1 2))
'(1 2 3)
(addToEnd 3 nil)
'(3)
(reverse '(a b c))
'(c b a)
(reverse '(a))
'(a)
(reverse nil)
nil
(count 3 '(1 2 3))
1
(countAll 3 '(1 3 (3 4) (3 4)))
3
(insert 2 '(1 3 5))
'(1 2 3 5)
(insert 0 '(1 3 5))
'(0 1 3 5)
(insert 6 '(1 3 5))
'(1 3 5 6)
(insert 3 nil)
'(3)
(setAdd 3 nil)
'(3)
(setAdd 3 '(1 2 4))
'(3 1 2 4)
(setAdd 3 '(1 2 3 4))
'(1 2 3 4)
(setIncludes 3 '(1 2 4))
nil
(setIncludes 3 '(1 2 3 4))
t
(setIncludes 3 nil)
nil
(setRemove 3 '(1 2 4))
'(1 2 4)
(setRemove 3 '(1 2 3 4))
'(1 2 4)
(setRemove 3 nil)
nil