/[gcl]/gcl/ansi-tests/ensure-directories-exist.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/ensure-directories-exist.lsp

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

revision 1.6 by pfdietz, Wed May 5 01:48:43 2004 UTC revision 1.7 by pfdietz, Sat Aug 14 18:56:53 2004 UTC
# Line 143  Line 143 
143  ;; Need to add a LPN test  ;; Need to add a LPN test
144    
145  (deftest ensure-directories-exist.error.1  (deftest ensure-directories-exist.error.1
146    (signals-error    (signals-error-always
147     (ensure-directories-exist     (ensure-directories-exist
148      (make-pathname :directory '(:relative :wild)      (make-pathname :directory '(:relative :wild)
149                     :defaults *default-pathname-defaults*))                     :defaults *default-pathname-defaults*))
150     file-error)     file-error)
151    t)    t t)
152    
153  (deftest ensure-directories-exist.error.2  (deftest ensure-directories-exist.error.2
154    (signals-error (ensure-directories-exist) program-error)    (signals-error (ensure-directories-exist) program-error)

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