From 5d1161182a82b23aaa51e178c26db279fa03722b Mon Sep 17 00:00:00 2001
From: "Tarn W. Burton" <twburton@gmail.com>
Date: Sat, 31 Jul 2021 15:59:58 -0400
Subject: [PATCH] Add test for upcasing in logical pathname parsing

---
 pathnames/parse-namestring.lsp | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/pathnames/parse-namestring.lsp b/pathnames/parse-namestring.lsp
index 496527d3..3c1993d0 100644
--- a/pathnames/parse-namestring.lsp
+++ b/pathnames/parse-namestring.lsp
@@ -72,6 +72,14 @@
             (list (list etype result)))))
   nil)
 
+(deftest parse-namestring.5
+  (let* ((pathname (parse-namestring "cltest:temp.dat.newest"))
+         (namestring (namestring pathname)))
+    (and (typep pathname 'logical-pathname)
+         (or (equal namestring "CLSTEST:TEMP.DAT.NEWEST")
+             (equal namestring "CLSTEST:TEMP.DAT.newest"))))
+  t)
+
 ;;; Error tests
 
 (deftest parse-namestring.error.1
-- 
GitLab