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

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

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

revision 1.3 by pfdietz, Sat Jan 17 21:27:09 2004 UTC revision 1.4 by pfdietz, Sun Jun 26 14:52:06 2005 UTC
# Line 6  Line 6 
6  (in-package :cl-test)  (in-package :cl-test)
7    
8  (deftest pathnamep.1  (deftest pathnamep.1
9    (loop for x in *universe*    (check-type-predicate #'pathnamep 'pathname)
         unless (if (pathnamep x) (typep x 'pathname)  
                  (not (typep x 'pathname)))  
         collect x)  
10    nil)    nil)
11    
12  (deftest pathnamep.2  (deftest pathnamep.2
13    (loop for x in *universe*    (check-predicate #'(lambda (x) (eql (length (multiple-value-list (pathnamep x))) 1)))
14          always (eql (length (multiple-value-list (pathnamep x))) 1))    nil)
   t)  
15    
16  (deftest pathnamep.3  (deftest pathnamep.3
17    (loop for x in *universe*    (check-predicate (typef '(not logical-pathname)) #'pathnamep)
18          always (or (not (typep x 'logical-pathname))    nil)
                    (pathnamep x)))  
   t)  
19    
20  (deftest pathnamep.error.1  (deftest pathnamep.error.1
21    (signals-error (pathnamep) program-error)    (signals-error (pathnamep) program-error)

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

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