Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 6f47036)
New test for the PACKAGE-LOCK bad return value.
authorPhilipp Marek <philipp@marek.priv.at>
Sun, 9 Mar 2014 20:05:37 +0000 (21:05 +0100)
committerPhilipp Marek <philipp@marek.priv.at>
Sun, 9 Mar 2014 20:05:37 +0000 (21:05 +0100)
src/tests/bugs/doit.lsp patch | blob | blame | history
src/tests/bugs/mixed.lsp [new file with mode: 0644] patch | blob

diff --git a/src/tests/bugs/doit.lsp b/src/tests/bugs/doit.lsp
index 7978707..6419370 100644 (file)
--- a/src/tests/bugs/doit.lsp
+++ b/src/tests/bugs/doit.lsp
@@ -37,6 +37,8 @@
 
 (load "cl-001.lsp")
 
+(load "mixed.lsp")
+
 (load "int-001.lsp")
 
 #-ecl-bytecmp
diff --git a/src/tests/bugs/mixed.lsp b/src/tests/bugs/mixed.lsp
new file mode 100644 (file)
index 0000000..8db62b4
--- /dev/null
+++ b/src/tests/bugs/mixed.lsp
@@ -0,0 +1,19 @@
+;-*- Mode:     Lisp -*-
+;;;; Contains: Some regression tests for ECL
+
+(in-package :cl-test)
+
+
+;;; (EXT:PACKAGE-LOCK) returned the wrong value.
+;;; Fixed in 77a267c7e42860affac8eddfcddb8e81fccd44e5
+
+(deftest mixed-0001-package-lock
+  (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)))))
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)