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