From: Daniel Kochmański <daniel@turtleware.eu>
Date: Wed, 19 Aug 2015 06:29:07 +0000 (+0200)
Subject: tests: add regression test for logical pathnames
X-Git-Tag: ECL-16.0.0~1^2~23
X-Git-Url: http://git.pulsar-zone.net/?a=commitdiff_plain;h=10ebf2550e9c10c1ee7f02526d210b13fd17bc5c;p=ecl.git

tests: add regression test for logical pathnames

Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
---

diff --git a/src/tests/bugs/test-ansi.lsp b/src/tests/bugs/test-ansi.lsp
index 8dd5608..9945ec3 100644
--- a/src/tests/bugs/test-ansi.lsp
+++ b/src/tests/bugs/test-ansi.lsp
@@ -89,3 +89,20 @@
   t nil t t)
 
 
+
+;; 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")
+
+