/[gcl]/gcl/ansi-tests/pathname-host.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/pathname-host.lsp

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

revision 1.4 by pfdietz, Thu Sep 2 12:06:30 2004 UTC revision 1.5 by pfdietz, Sun Dec 12 13:43:46 2004 UTC
# Line 52  Line 52 
52    (do-special-strings (s "" nil) (pathname-host s))    (do-special-strings (s "" nil) (pathname-host s))
53    nil)    nil)
54    
55    ;;; pathname-host returns a valid pathname host, which is defined to be either
56    ;;; a string, a list of strings, or the symbol :unspecific
57    
58    (deftest pathname-host.9
59      (loop for p in *pathnames*
60            for host = (pathname-host p)
61            unless (or (stringp host)
62                       (and (listp host) (every #'stringp host))
63                       (eql host :unspecific))
64            collect (list p host))
65      nil)
66    
67    ;;; Error cases
68    
69  (deftest pathname-host.error.1  (deftest pathname-host.error.1
70    (signals-error (pathname-host) program-error)    (signals-error (pathname-host) program-error)
71    t)    t)

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