From 1d922ed88be0c47f19b319a4fd49a4b18fdd0a3f Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Thu, 2 Sep 2004 13:34:03 +0000 Subject: [PATCH] Begin adding tests for NAMESTRING --- ansi-tests/load-pathnames.lsp | 2 ++ ansi-tests/namestring.lsp | 25 +++++++++++++++++++++++++ 2 files changed, 27 insertions(+) create mode 100644 ansi-tests/namestring.lsp diff --git a/ansi-tests/load-pathnames.lsp b/ansi-tests/load-pathnames.lsp index f9182d76..c60833c5 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 00000000..79118c97 --- /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) + -- GitLab