/[gcl]/gcl/ansi-tests/load.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/load.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by pfdietz, Wed Apr 13 12:37:35 2005 UTC revision 1.3 by pfdietz, Wed Apr 13 12:53:08 2005 UTC
# Line 126  Line 126 
126    
127  (deftest load.17  (deftest load.17
128    (let ((file #p"load-test-file.lsp"))    (let ((file #p"load-test-file.lsp"))
129        (fmakunbound 'load-file-test-fun.1)
130        (fmakunbound 'load-file-test-fun.2)
131      (values      (values
132       (notnot (load file))       (notnot (load file))
133       (let ((p1 (pathname (merge-pathnames file)))       (let ((p1 (pathname (merge-pathnames file)))
134             (p2 (load-file-test-fun.1)))             (p2 (funcall 'load-file-test-fun.1)))
135         (or (equalpt p1 p2)         (or (equalpt p1 p2)
136             (list p1 p2)))             (list p1 p2)))
137       (let ((p1 (truename file))       (let ((p1 (truename file))
138             (p2 (load-file-test-fun.2)))             (p2 (funcall 'load-file-test-fun.2)))
139         (or (equalpt p1 p2)         (or (equalpt p1 p2)
140             (list p1 p2)))))             (list p1 p2)))))
141    t t t)    t t t)
# Line 160  Line 162 
162             (list p1 p2)))))             (list p1 p2)))))
163    t t)    t t)
164    
165  ;;; Add logical pathname test  (deftest load.19
166      (let ((file (logical-pathname "CLTEST:LDTEST.LSP"))
167            (fn 'load-test-fun-3)
168            (*package* (find-package "CL-TEST")))
169        (with-open-file
170         (s file :direction :output :if-exists :supersede
171            :if-does-not-exist :create)
172         (format s "(in-package :cl-test) (defun ~a () :foo)" fn))
173        (fmakunbound fn)
174        (values
175         (notnot (load file))
176         (funcall fn)))
177      t :foo)
178    
179  ;;; Error tests  ;;; Error tests
180    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26