tests: fix a few mistakes

2026-01-18 23:32:17 -08:00 · 2016-08-07 17:05:07 +02:00 · 2016-08-07 17:05:07 +02:00 · 36a06c74e9
commit 36a06c74e9
parent cd9f75a581
2 changed files with 8 additions and 8 deletions
--- a/src/tests/regressions/.#compiler.lsp
+++ b/src/tests/regressions/.#compiler.lsp
@ -1 +0,0 @@
-jack@pandora.670:1470121845
--- a/src/tests/regressions/mixed.lsp
+++ b/src/tests/regressions/mixed.lsp
@ -113,13 +113,14 @@
 (ext:with-clean-symbols (fact)
  (defun fact (n) (if (zerop n) :boom (fact (1- n))))
  (test mix.0008.trace-output
-    (is-eql 0
-            (length
-             (with-output-to-string (*trace-output*)
-               (trace fact)
-               (fact 3)
-               (untrace fact)
-               *trace-output*)))))
+    (is
+     (not (zerop
+           (length
+            (with-output-to-string (*trace-output*)
+              (trace fact)
+              (fact 3)
+              (untrace fact)
+              *trace-output*)))))))


 ;;;; Author:   Daniel Kochmański