eq, equal

2 files changed, 28 insertions, 0 deletions

diff --git a/tests/eq.lisp b/tests/eq.lisp
new file mode 100644
index 0000000..4db31ce
--- /dev/null
+++ b/tests/eq.lisp
@@ -0,0 +1,27 @@
+(assert-error (eq 1 2 3))
+(assert-error (equal 1 2 3))
+
+(assert (eq 1 1))
+(assert (eq 'a 'a))
+(assert (eq 1.0 1.0))
+(assert (eq #\a #\a))
+(assert (eq #f #f))
+(assert (eq nil nil))
+(assert (eq #t #t))
+(assert (not (eq 1 2)))
+(assert (not (eq "a" "a")))
+(assert (not (eq 'a 'b)))
+(assert (not (eq '(1 2) '(1 2))))
+
+(assert (equal 1 1))
+(assert (equal 'a 'a))
+(assert (equal "a" "a"))
+(assert (equal 1.0 1.0))
+(assert (equal #\a #\a))
+(assert (equal #f #f))
+(assert (equal '(1 2) '(1 2)))
+
+(assert (not (equal 1 2)))
+(assert (not (equal 'a 'b)))
+(assert (not (equal "a" "b")))
+(assert (not (equal '(1 2 3) '(1 2))))
diff --git a/tests/test.lisp b/tests/test.lisp
index 4ca2964..797fc0d 100644
--- a/tests/test.lisp
+++ b/tests/test.lisp
@@ -4,6 +4,7 @@
     (load (format "%s.lisp" ,name))
     (princ (format "[PASS] %s\n" ,name))))
 
+(test-module "eq")
 (test-module "arithmetic")
 (test-module "error")
 (test-module "logic")