/[gcl]/gcl/ansi-tests/truename.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/truename.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 69  Line 69 
69         )))         )))
70    t t t)    t t t)
71    
72  ;;;  ;;; Specialized string tests
73    
74    (deftest truename.6
75      (do-special-strings
76       (s "truename.lsp" nil)
77       (assert (equalp (truename s) (truename "truename.lsp"))))
78      nil)
79    
80    ;;; Error tests
81    
82  (deftest truename.error.1  (deftest truename.error.1
83    (signals-error (truename) program-error)    (signals-error (truename) 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