/[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.7 by pfdietz, Tue Apr 12 14:00:04 2005 UTC revision 1.8 by pfdietz, Wed Apr 13 02:17:28 2005 UTC
# Line 159  Line 159 
159       (equalpt (truename file) (funcall 'compile-file-test-fun.5))       (equalpt (truename file) (funcall 'compile-file-test-fun.5))
160       (equalpt (pathname (merge-pathnames file))       (equalpt (pathname (merge-pathnames file))
161                (funcall 'compile-file-test-fun.5a))))                (funcall 'compile-file-test-fun.5a))))
162    t t)      t t)
163    
164    ;;; Add tests of logical pathnames
165    
166    (deftest compile-file.17
167      (let ((file (logical-pathname "CLTEST:COMPILE-FILE-TEST-LP.LSP")))
168        (with-open-file
169         (s file :direction :output :if-exists :supersede :if-does-not-exist :create)
170         (format s "(in-package :cl-test)~%(defun compile-file-test-lp.fun () nil)~%"))
171        (compile-file-test file 'compile-file-test-lp.fun))
172      t nil)
173    
174    (deftest compile-file.18
175      (let ((file (logical-pathname "CLTEST:COMPILE-FILE-TEST-LP.OUT")))
176        (with-open-file
177         (s file :direction :output :if-exists :supersede :if-does-not-exist :create))
178        (compile-file-test "compile-file-test-file.lsp"
179                           'compile-file-test-fun.1
180                           :output-file file))
181      t nil)
182    
183    
184      
185    
186    (deftest compile-file-pathname.1
187      *compile-file-pathname*
188      nil)
189    
190    (deftest compile-file-truename.1
191      *compile-file-truename*
192      nil)
193    
194  ;;; Error cases  ;;; Error cases
195    

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

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