some testing for equal

diff --git a/tests/equal.lisp b/tests/equal.lisp
new file mode 100644 (file)
index 0000000..7f76510
--- /dev/null
+++ b/tests/equal.lisp
@@ -0,0 +1,10 @@
+(test (equal '(1 2) '(1 2)))
+(test (equal 1 1))
+(test (equal "abc" "abc"))
+(test (not (equal "abc" "def")))
+(test (not (equal "Abc" "abc")))
+(test (equal #(1 2 3) #(1 2 3)))
+(test (equal '(1 2 #(3 4 ("a b c" T)))
+             '(1 2 #(3 4 ("a b c" T)))))
+(test (not (equal '(1 2 #(3 4 ("a b c" T)))
+                  '(1 2 #(3 4 ("a b x" T))))))