From: Daniel Kochmański <daniel@turtleware.eu>
Date: Wed, 19 Aug 2015 10:31:50 +0000 (+0200)
Subject: tests: fix pathname test
X-Git-Tag: ECL-16.0.0~1^2~19
X-Git-Url: http://git.pulsar-zone.net/?a=commitdiff_plain;h=384530319147d4b9e0ef085e651f1da576ae9a72;p=ecl.git

tests: fix pathname test

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 9298974..0db098e 100644
--- a/src/tests/bugs/test-ansi.lsp
+++ b/src/tests/bugs/test-ansi.lsp
@@ -98,11 +98,12 @@
 
 ;; 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"/tmp/prog/documentation.lisp")
+(deftest* test-ansi.pathname.wildcards.1
+    (namestring
+     (progn
+       (setf (logical-pathname-translations "prog")
+             '(("CODE;*.*.*" "/tmp/prog/")))
+       (translate-logical-pathname "prog:code;documentation.lisp")))
+  (list (namestring #P"/tmp/prog/documentation.lisp")))