From b377906636b7e1edc2ac55304a43df5fb79d94fe Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Wed, 13 Apr 2005 12:53:08 +0000 Subject: [PATCH] Added a logical pathname test --- ansi-tests/load.lsp | 21 +++++++++++++++++---- 1 file changed, 17 insertions(+), 4 deletions(-) diff --git a/ansi-tests/load.lsp b/ansi-tests/load.lsp index 1c8bfbdb..1231392f 100644 --- a/ansi-tests/load.lsp +++ b/ansi-tests/load.lsp @@ -126,14 +126,16 @@ (deftest load.17 (let ((file #p"load-test-file.lsp")) + (fmakunbound 'load-file-test-fun.1) + (fmakunbound 'load-file-test-fun.2) (values (notnot (load file)) (let ((p1 (pathname (merge-pathnames file))) - (p2 (load-file-test-fun.1))) + (p2 (funcall 'load-file-test-fun.1))) (or (equalpt p1 p2) (list p1 p2))) (let ((p1 (truename file)) - (p2 (load-file-test-fun.2))) + (p2 (funcall 'load-file-test-fun.2))) (or (equalpt p1 p2) (list p1 p2))))) t t t) @@ -160,8 +162,19 @@ (list p1 p2))))) t t) -;;; Add logical pathname test - +(deftest load.19 + (let ((file (logical-pathname "CLTEST:LDTEST.LSP")) + (fn 'load-test-fun-3) + (*package* (find-package "CL-TEST"))) + (with-open-file + (s file :direction :output :if-exists :supersede + :if-does-not-exist :create) + (format s "(in-package :cl-test) (defun ~a () :foo)" fn)) + (fmakunbound fn) + (values + (notnot (load file)) + (funcall fn))) + t :foo) ;;; Error tests -- GitLab