Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 6c0860b)
tests: fix pathname test
authorDaniel Kochmański <daniel@turtleware.eu>
Wed, 19 Aug 2015 10:31:50 +0000 (12:31 +0200)
committerDaniel Kochmański <daniel@turtleware.eu>
Wed, 19 Aug 2015 10:31:50 +0000 (12:31 +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 9298974..0db098e 100644 (file)
--- 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")))
 
 \f
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)