Skip to content
Snippets Groups Projects
Commit a0c457b3 authored by pfdietz's avatar pfdietz
Browse files

Changed to avoid defpackage so I can test some CLtL1s like WCL

parent b6d6871a
No related branches found
No related tags found
No related merge requests found
......@@ -3,6 +3,7 @@
;;;; Created: Sat Mar 14 10:13:21 1998
;;;; Contains: CL test case package definition
#|
(progn
(defpackage :cl-test
(:use :cl :regression-test)
......@@ -12,3 +13,18 @@
(:export #:random-from-seq #:random-case #:coin #:random-permute))
(let ((s (find-symbol "QUIT" "CL-USER")))
(when s (import s :cl-test))))
|#
(let* ((name :cl-test)
(pkg (find-package name)))
(unless pkg (setq pkg (make-package name :use '(#-wcl :cl #+wcl :lisp :regression-test))))
(let ((*package* pkg))
(shadow '(#:handler-case #:handler-bind))
(import '(#-wcl common-lisp-user::compile-and-load
#+wcl user::compile-and-load)
pkg)
(export (mapcar #'intern (mapcar #'symbol-name '(#:random-from-seq #:random-case #:coin #:random-permute)))))
(let ((s (find-symbol "QUIT" "CL-USER")))
(when s (import s :cl-test))))
......@@ -3,9 +3,9 @@
;;;; Created: Tue Dec 17 21:10:53 2002
;;;; Contains: Package definition for RT
(eval-when
(:execute :compile-toplevel :load-toplevel)
(defpackage :regression-test
;; (eval-when (:execute :compile-toplevel :load-toplevel)
#| (defpackage :regression-test
(:use :cl)
(:nicknames :rtest #-lispworks :rt)
(:export
......@@ -24,6 +24,31 @@
#:my-aref
#:*catch-errors*
#:disable-note
)))
))
|#
(let* ((name (symbol-name :regression-test))
(pkg (find-package name)))
(unless pkg (setq pkg (make-package name
:nicknames (mapcar #'symbol-name '(:rtest #-lispworks :rt))
:use '(#-wcl :cl #+wcl :lisp)
)))
(let ((*package* pkg))
(export (mapcar #'intern
(mapcar #'symbol-name
'(#:*compile-tests*
#:*test*
#:continue-testing
#:deftest
#:do-test
#:do-tests
#:get-test
#:pending-tests
#:rem-all-tests
#:rem-test
#:defnote
#:my-aref
#:*catch-errors*
#:disable-note))))))
;; )
(in-package :regression-test)
;; (in-package :regression-test)
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment