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

Add tests that *readtable*, *package* are actually bound in a LOAD form.

parent 98023080
No related branches found
No related tags found
No related merge requests found
...@@ -116,6 +116,16 @@ ...@@ -116,6 +116,16 @@
(load-file-test s 'load-test-package::f))) (load-file-test s 'load-test-package::f)))
t load-test-package::good) t load-test-package::good)
(deftest load.15a
(let ((*package* (find-package "CL-TEST")))
(values
(with-input-from-string
(s "(eval-when (:load-toplevel :execute) (setq *package* (find-package \"LOAD-TEST-PACKAGE\")))
(defun f () 'good)")
(multiple-value-list (load-file-test s 'load-test-package::f)))
(read-from-string "GOOD")))
(t load-test-package::good) good)
(deftest load.16 (deftest load.16
(let ((*readtable* (copy-readtable nil))) (let ((*readtable* (copy-readtable nil)))
(set-macro-character #\! (get-macro-character #\')) (set-macro-character #\! (get-macro-character #\'))
...@@ -124,6 +134,21 @@ ...@@ -124,6 +134,21 @@
(load-file-test s 'load-file-test-fun.3))) (load-file-test s 'load-file-test-fun.3)))
t good) t good)
(deftest load.16a
(let ((*readtable* *readtable*)
(*package* (find-package "CL-TEST")))
(values
(with-input-from-string
(s "(in-package :cl-test)
(eval-when (:load-toplevel :execute)
(setq *readtable* (copy-readtable nil))
(set-macro-character #\\! (get-macro-character #\\')))
(defun load-file-test-fun.3 () !good)")
(multiple-value-list
(load-file-test s 'load-file-test-fun.3)))
(read-from-string "!FOO")))
(t good) !FOO)
(deftest load.17 (deftest load.17
(let ((file #p"load-test-file.lsp")) (let ((file #p"load-test-file.lsp"))
(fmakunbound 'load-file-test-fun.1) (fmakunbound 'load-file-test-fun.1)
......
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