Add test case

jscl-project · Feb 5, 2022 · aaa08b8 · aaa08b8
1 parent 1bfe46a
commit aaa08b8
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/tests/conditions.lisp b/tests/conditions.lisp
@@ -90,7 +90,14 @@
               (+ 1 2))))
 
 
-
+;;; ASSERT case
+(test
+ (equal '(t nil t nil)
+        (list
+         (not (assert (= 1 1)))
+         (trap-errors (assert (= 1 2)))
+         (not (assert (typep 1 'integer)))
+         (trap-errors (assert (typep 1 'list))))))
 
 
 ;;; EOF