Commit 61497880 authored by Juergen Nickelsen's avatar Juergen Nickelsen

all test cases pass!

parent 241bb12d
......@@ -17,7 +17,7 @@
* suppress stack trace output when in errset
@ fix existing regtests; 028
+ fix existing regtests
+ read
......
(let ((command "uname -a"))
(format t "\nOutput of %v:\n" command)
(format t "\nOutput of %s:\n" command)
(shell command))
(debug t)
(defvar the-alist '((3 . 4)
(7 . 5)
(lala . humdi)
......
......@@ -9,17 +9,5 @@
(testcmp "delete list 7" '(errset (delete 'g '(a b c d e . f))) nil)
(testcmp "delete list 8" '(delete 'g '(a g b g c g)) '(a b c))
(testcmp "delete string 0" '(delete 'a "der Tag, als Conny Kramer starb")
"der Tag, als Conny Kramer starb")
(testcmp "delete string 1" '(delete ?a "der Tag, als Conny Kramer starb")
"der Tg, ls Conny Krmer strb")
(testcmp "delete string 1" '(delete ?a "") "")
(testcmp "delete vector 0" '(delete 'c [a b c d e f]) [a b d e f])
(testcmp "delete vector 1" '(delete 'a [a b c d e f]) [b c d e f])
(testcmp "delete vector 2" '(delete 'f [a b c d e f]) [a b c d e])
(testcmp "delete vector 3" '(delete 'g [a b c d e f]) [a b c d e f])
(testcmp "delete vector 4" '(delete 'g nil) nil)
(testcmp "delete symbol 0" '(delete 'a nil) nil)
(testcmp "delete symbol 1" '(errset (delete 'a 'b)) nil)
(testcmp "sort vector 1" '(sort [60] #'>) [60])
(sort "W" #'>)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment