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

Diff of /gcl/ansi-tests/namestring.lsp

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

revision 1.1 by pfdietz, Thu Sep 2 13:34:03 2004 UTC revision 1.2 by pfdietz, Sun Sep 12 12:08:49 2004 UTC
# Line 23  Line 23 
23       (assert (string= (namestring ns) ns))))       (assert (string= (namestring ns) ns))))
24    nil)    nil)
25    
26    (deftest namestring.3
27      (let* ((name "namestring.lsp")
28             (pn (merge-pathnames (pathname name)))
29             (name2 (namestring pn))
30             (pn2 (pathname name2)))
31        (or (equalt pn pn2) (list pn pn2)))
32      t)
33    
34    (deftest namestring.4
35      (let* ((name "namestring.lsp")
36             (pn (merge-pathnames (pathname name)))
37             (name2 (with-open-file (s pn :direction :input) (namestring s)))
38             (pn2 (pathname name2)))
39        (or (equalt pn pn2) (list pn pn2)))
40      t)
41    
42    ;;; Error tests
43    
44    (deftest namestring.error.1
45      (signals-error (namestring) program-error)
46      t)
47    
48    (deftest namestring.error.2
49      (signals-error (namestring "namestring.lsp" nil) program-error)
50      t)

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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