Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |