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

Diff of /gcl/ansi-tests/pathname-match-p.lsp

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

revision 1.1 by pfdietz, Sun Aug 15 13:36:35 2004 UTC revision 1.2 by pfdietz, Tue Aug 17 23:30:08 2004 UTC
# Line 36  Line 36 
36  (deftest pathname-match-p.5  (deftest pathname-match-p.5
37    (let ((pn1 (make-pathname :directory '(:relative :wild)))    (let ((pn1 (make-pathname :directory '(:relative :wild)))
38          (pn2 (make-pathname :directory nil)))          (pn2 (make-pathname :directory nil)))
39      (pathname-match-p pn1 pn2))      (and (wild-pathname-p pn1)
40             (not (pathname-directory pn2))
41             (not (pathname-match-p pn1 pn2))))
42    nil)    nil)
43    
44  (deftest pathname-match-p.6  (deftest pathname-match-p.6
45    (let ((pn1 (make-pathname :version :wild))    (let ((pn1 (make-pathname :version :wild))
46          (pn2 (make-pathname)))          (pn2 (make-pathname)))
47      (and (wild-pathname-p pn1)      (and (wild-pathname-p pn1)
48           (not (wild-pathname-p pn2))           (not (pathname-version pn2))
49           (pathname-match-p pn1 pn2)))           (not (pathname-match-p pn1 pn2))))
50    nil)    nil)
51    
52  ;;; Here are error tests  ;;; Here are error tests

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