/[gcl]/gcl/ansi-tests/compile-file.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/compile-file.lsp

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

revision 1.6 by pfdietz, Tue Apr 12 12:56:36 2005 UTC revision 1.7 by pfdietz, Tue Apr 12 14:00:04 2005 UTC
# Line 144  Line 144 
144      (compile-file-test "compile-file-test-file-4.lsp" 'compile-file-test-fun.4))      (compile-file-test "compile-file-test-file-4.lsp" 'compile-file-test-fun.4))
145    t foo)    t foo)
146    
147  ;;; Add tests for *compile-file-truename*, *compile-file-pathname*  ;;; Tests for *compile-file-truename*, *compile-file-pathname*
148    
149    (deftest compile-file.16
150      (let* ((file #p"compile-file-test-file-5.lsp")
151             (target-pathname (compile-file-pathname file))
152             (*compile-print* nil)
153             (*compile-verbose* nil))
154        (when (probe-file target-pathname)
155          (delete-file target-pathname))
156        (compile-file file)
157        (load target-pathname)
158        (values
159         (equalpt (truename file) (funcall 'compile-file-test-fun.5))
160         (equalpt (pathname (merge-pathnames file))
161                  (funcall 'compile-file-test-fun.5a))))
162      t t)  
163    
164  ;;; Error cases  ;;; Error cases
165    

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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