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

Diff of /gcl/ansi-tests/file-write-date.lsp

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

revision 1.4 by pfdietz, Sat Aug 14 18:56:53 2004 UTC revision 1.5 by pfdietz, Sun Sep 19 20:56:33 2004 UTC
# Line 50  Line 50 
50    (length (multiple-value-list (file-write-date "file-write-date.lsp")))    (length (multiple-value-list (file-write-date "file-write-date.lsp")))
51    1)    1)
52    
53    ;;; Specialized string tests
54    
55    (deftest file-write-date.6
56      (let* ((str "file-write-date.lsp")
57             (date (file-write-date str)))
58        (do-special-strings
59         (s str nil)
60         (assert (equal (file-write-date s) date))))
61      nil)
62    
63  ;;; FIXME  ;;; FIXME
64  ;;; Add LPN test  ;;; Add LPN test
65    
66  ;;;  ;;; Error tests
67    
68  (deftest file-write-date.error.1  (deftest file-write-date.error.1
69    (signals-error (file-write-date) program-error)    (signals-error (file-write-date) program-error)

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

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