mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 13:52:16 -08:00
Code Issues Projects Releases Packages Wiki Activity

New test for the PACKAGE-LOCK bad return value.

Browse source
This commit is contained in:
Philipp Marek 2014-03-09 21:05:37 +01:00
parent 6f47036d4d
commit 8d9bbf19e4
2 changed files with 21 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/tests/bugs/doit.lsp
View file

@ -37,6 +37,8 @@
(load "cl-001.lsp")
(load "mixed.lsp")
(load "int-001.lsp")
#-ecl-bytecmp

19
src/tests/bugs/mixed.lsp Normal file
View file

@ -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)))))