From 10ebf2550e9c10c1ee7f02526d210b13fd17bc5c Mon Sep 17 00:00:00 2001
From: =?utf8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Wed, 19 Aug 2015 08:29:07 +0200
Subject: [PATCH] tests: add regression test for logical pathnames
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
---
 src/tests/bugs/test-ansi.lsp | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

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")
+
+
-- 
2.9.0