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