bugfixed test of depends on symbol
authorHenrik Hjelte <henrik@evahjelte.com>
Wed, 31 Oct 2007 08:45:16 +0000 (09:45 +0100)
committerHenrik Hjelte <henrik@evahjelte.com>
Wed, 31 Oct 2007 08:45:16 +0000 (09:45 +0100)
t/tests.lisp

index 0aca3e5..91d0ac9 100644 (file)
   (with-test-results (results dep-with-symbol-dependencies-not-met)
     (is (some #'test-skipped-p results)))
 
+  ;; No failure here, because it means the test was run.
   (with-test-results (results dep-with-symbol-depends-on-failed-dependency)
-    (is (some #'test-skipped-p results))))
+    (is (not (some #'test-failure-p results)))))
 
 
 ;;;; test for-all