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

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

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

revision 1.3 by pfdietz, Tue Jan 27 00:33:23 2004 UTC revision 1.4 by pfdietz, Sun Sep 19 20:56:33 2004 UTC
# Line 51  Line 51 
51         (probe-file pn))))         (probe-file pn))))
52    t (t) nil)    t (t) nil)
53    
54  ;;;  ;;; Specialized string tests
55    
56    (deftest delete-file.5
57      (do-special-strings
58       (pn "scratchfile.txt" nil)
59       (unless (probe-file pn)
60         (with-open-file (s pn :direction :output)
61                         (format s "Contents~%")))
62       (assert (probe-file pn))
63       (assert (equal (multiple-value-list (delete-file pn)) '(t)))
64       (assert (not (probe-file pn))))
65      nil)
66    
67    ;;; Error tests
68    
69  (deftest delete-file.error.1  (deftest delete-file.error.1
70    (signals-error (delete-file) program-error)    (signals-error (delete-file) program-error)

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

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