From: Andrea Griffini <agriff@tin.it>
Date: Tue, 30 Apr 2013 07:02:08 +0000 (+0200)
Subject: some testing for equal
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=cbfef25a94fd3082f517d93bc40d9e9e61e1da11;p=jscl.git

some testing for equal
---

diff --git a/tests/equal.lisp b/tests/equal.lisp
new file mode 100644
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))))))