Mon Jan 25 07:38:27 UTC 2010 pix@kepibu.org
* Consider unexpected errors as test failures
...why is this not default behavior?
diff -rN -u old-cl-unification/test/unification-tests.lisp new-cl-unification/test/unification-tests.lisp
--- old-cl-unification/test/unification-tests.lisp 2015-11-13 03:40:27.000000000 +0000
+++ new-cl-unification/test/unification-tests.lisp 2015-11-13 03:40:27.000000000 +0000
@@ -10,6 +10,9 @@
(:use "CL" "UNIFY" #+allegro "UTIL.TEST" #-allegro "PTESTER"))
(in-package "UNIFY.TESTS")
+;; nil seems like a lousy default for this
+(setf *error-protect-tests* t)
+
(with-tests (:name "basic constant unification")
(test t (unify:environment-p (unify 42 42)))