diff --git a/ansi-tests/load-pathnames.lsp b/ansi-tests/load-pathnames.lsp index f9182d76c3ed09a22ffc460da10bf618c04e6919..c60833c5f537a8f6b22a3aec8cd8dae6416682aa 100644 --- a/ansi-tests/load-pathnames.lsp +++ b/ansi-tests/load-pathnames.lsp @@ -23,6 +23,8 @@ (load "logical-pathname-translations.lsp") (load "translate-logical-pathname.lsp") +(load "namestring.lsp") + (load "wild-pathname-p.lsp") (load "merge-pathnames.lsp") (load "pathname-match-p.lsp") diff --git a/ansi-tests/namestring.lsp b/ansi-tests/namestring.lsp new file mode 100644 index 0000000000000000000000000000000000000000..79118c978d8c030f745080b9a249523ddd5cb15a --- /dev/null +++ b/ansi-tests/namestring.lsp @@ -0,0 +1,25 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Thu Sep 2 07:24:42 2004 +;;;; Contains: Tests for NAMESTRING + +(in-package :cl-test) + +(deftest namestring.1 + (let* ((vals (multiple-value-list (namestring "namestring.lsp"))) + (s (first vals))) + (if (and (null (cdr vals)) + (stringp s) + (equal (namestring s) s)) + :good + vals)) + :good) + +(deftest namestring.2 + (do-special-strings + (s "namestring.lsp" nil) + (let ((ns (namestring s))) + (assert (stringp ns)) + (assert (string= (namestring ns) ns)))) + nil) +