Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 82ff54b)
tests: add regression test for logical pathnames
authorDaniel Kochmański <daniel@turtleware.eu>
Wed, 19 Aug 2015 06:29:07 +0000 (08:29 +0200)
committerDaniel Kochmański <daniel@turtleware.eu>
Wed, 19 Aug 2015 06:29:07 +0000 (08:29 +0200)
Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
src/tests/bugs/test-ansi.lsp patch | blob | blame | history

diff --git a/src/tests/bugs/test-ansi.lsp b/src/tests/bugs/test-ansi.lsp
index 8dd5608..9945ec3 100644 (file)
--- a/src/tests/bugs/test-ansi.lsp
+++ b/src/tests/bugs/test-ansi.lsp
@@ -89,3 +89,20 @@
   t nil t t)
 
 \f
+
+;; HyperSpec – 19.*
+
+;;;;;;;;;;;;;;;;;;;;
+;; Pathname tests ;;
+;;;;;;;;;;;;;;;;;;;;
+
+;; Issue #103 ;; logical-pathname-translations not translating
+;; https://gitlab.com/embeddable-common-lisp/ecl/issues/103
+(deftest test-ansi.pathname.wildcards.1
+    (progn
+      (setf (logical-pathname-translations "prog")
+            '(("CODE;*.*.*" "/tmp/prog/")))
+      (translate-logical-pathname "prog:code;documentation.lisp"))
+  #P"/lib/prog/documentation.lisp")
+
+\f
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)