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

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

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

revision 1.4 by pfdietz, Mon Aug 16 02:37:46 2004 UTC revision 1.5 by pfdietz, Sun Sep 19 20:56:33 2004 UTC
# Line 200  Line 200 
200    (wild-pathname-p "CLTEST:FOO.LISP")    (wild-pathname-p "CLTEST:FOO.LISP")
201    nil)    nil)
202    
203    ;;; Odd strings
204    
205    (deftest wild-pathname-p.32
206      (do-special-strings
207       (s "CLTEST:FOO.LISP" nil)
208       (let ((vals (multiple-value-list (wild-pathname-p s))))
209         (assert (equal vals '(nil)))))
210      nil)
211    
212  ;;;  ;;;
213    
214  (deftest wild-pathname-p.error.1  (deftest wild-pathname-p.error.1

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