diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/eq.lisp | 27 | ||||
| -rw-r--r-- | tests/test.lisp | 1 |
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") |