/[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.7 by pfdietz, Sat Aug 14 18:56:53 2004 UTC revision 1.8 by pfdietz, Sun Sep 19 20:56:33 2004 UTC
# Line 106  Line 106 
106       verbosity))       verbosity))
107    2 t nil "")    2 t nil "")
108    
   
109  ;;; Case where directory shouldn't exist  ;;; Case where directory shouldn't exist
110    
111  ;; The directort ansi-tests/scratch must not exist before this  ;; The directort ansi-tests/scratch must not exist before this
# Line 139  Line 138 
138         )))         )))
139    2 t t t "")    2 t t t "")
140    
141    ;;; Specialized string tests
142    
143    (deftest ensure-directories-exist.9
144      (do-special-strings
145       (str "ensure-directories-exist.lsp" nil)
146       (let* ((results (multiple-value-list (ensure-directories-exist str))))
147         (assert (eql (length results) 2))
148         (assert (equalt (truename (first results)) (truename str)))
149         (assert (null (second results)))))
150      nil)
151    
152  ;; FIXME  ;; FIXME
153  ;; Need to add a LPN test  ;; Need to add a LPN test
154    

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