From cbfef25a94fd3082f517d93bc40d9e9e61e1da11 Mon Sep 17 00:00:00 2001 From: Andrea Griffini Date: Tue, 30 Apr 2013 09:02:08 +0200 Subject: [PATCH] some testing for equal --- tests/equal.lisp | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100644 tests/equal.lisp 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)))))) -- 1.7.10.4