/[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.3 by pfdietz, Sun Sep 12 12:08:49 2004 UTC revision 1.4 by pfdietz, Sun Sep 19 20:56:33 2004 UTC
# Line 49  Line 49 
49           (not (pathname-match-p pn1 pn2))))           (not (pathname-match-p pn1 pn2))))
50    nil)    nil)
51    
52    ;;; Specialized string tests
53    
54    (deftest pathname-match-p.7
55      (let ((wpn (parse-namestring "CLTEST:*.LSP")))
56        (assert (wild-pathname-p wpn))
57        (do-special-strings
58         (s "CLTEST:FOO.LSP" nil)
59         (assert (pathname-match-p s wpn))))
60      nil)
61    
62    (deftest pathname-match-p.8
63      (do-special-strings
64       (s "CLTEST:*.LSP" nil)
65       (assert (pathname-match-p "CLTEST:FOO.LSP" s)))
66      nil)
67      
68    
69  ;;; Add more tests here  ;;; Add more tests here
70    
71  ;;; Here are error tests  ;;; Here are error tests

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