eq, equal

1 files changed, 27 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))))