Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 2e6596a)
rt: fix mixied package lock test
authorDaniel Kochmański <daniel@turtleware.eu>
Mon, 10 Aug 2015 20:02:25 +0000 (22:02 +0200)
committerDaniel Kochmański <daniel@turtleware.eu>
Mon, 10 Aug 2015 20:02:25 +0000 (22:02 +0200)
Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
src/tests/bugs/mixed.lsp patch | blob | blame | history

diff --git a/src/tests/bugs/mixed.lsp b/src/tests/bugs/mixed.lsp
index 8db62b4..6e605bf 100644 (file)
--- a/src/tests/bugs/mixed.lsp
+++ b/src/tests/bugs/mixed.lsp
@@ -11,9 +11,8 @@
   (progn
     ;; Don't know the first state
     (ext:package-lock "CL-USER" nil)
-    (assert (eq nil
-                (ext:package-lock "CL-USER" t)))
-    (assert (eq t
-                (ext:package-lock "CL-USER" nil)))
-    (assert (eq nil
-                (ext:package-lock "CL-USER" nil)))))
+    (values
+     (ext:package-lock "CL-USER" t)
+     (ext:package-lock "CL-USER" nil)
+     (ext:package-lock "CL-USER" nil)))
+  nil t nil)
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)