/[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.2 by pfdietz, Sun Sep 12 12:08:49 2004 UTC revision 1.3 by pfdietz, Tue Sep 21 13:05:07 2004 UTC
# Line 23  Line 23 
23       (assert (string= (namestring ns) ns))))       (assert (string= (namestring ns) ns))))
24    nil)    nil)
25    
26    ;;; I'm not convinced these tested required behavior, so I'm commenting
27    ;;; them out for now.  FIXME: determine if they are bogus
28    #|
29  (deftest namestring.3  (deftest namestring.3
30    (let* ((name "namestring.lsp")    (let* ((name "namestring.lsp")
31           (pn (merge-pathnames (pathname name)))           (pn (merge-pathnames (pathname name)))
32           (name2 (namestring pn))           (name2 (namestring pn))
33           (pn2 (pathname name2)))           (pn2 (pathname name2)))
34      (or (equalt pn pn2) (list pn pn2)))      (or (equalt pn pn2) (list (list pn (pathname-host pn) (pathname-device pn)
35                                        (pathname-directory pn) (pathname-name pn)
36                                        (pathname-type pn) (pathname-version pn))
37                                  (list pn2 (pathname-host pn2) (pathname-device pn2)
38                                        (pathname-directory pn2) (pathname-name pn2)
39                                        (pathname-type pn2) (pathname-version pn2)))))
40    t)    t)
41    
42  (deftest namestring.4  (deftest namestring.4
# Line 36  Line 44 
44           (pn (merge-pathnames (pathname name)))           (pn (merge-pathnames (pathname name)))
45           (name2 (with-open-file (s pn :direction :input) (namestring s)))           (name2 (with-open-file (s pn :direction :input) (namestring s)))
46           (pn2 (pathname name2)))           (pn2 (pathname name2)))
47      (or (equalt pn pn2) (list pn pn2)))      (or (equalt pn pn2) (list (list pn (pathname-host pn) (pathname-device pn)
48                                        (pathname-directory pn) (pathname-name pn)
49                                        (pathname-type pn) (pathname-version pn))
50                                  (list pn2 (pathname-host pn2) (pathname-device pn2)
51                                        (pathname-directory pn2) (pathname-name pn2)
52                                        (pathname-type pn2) (pathname-version pn2)))))
53    t)    t)
54    |#
55    
56  ;;; Error tests  ;;; Error tests
57    

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

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