From 384530319147d4b9e0ef085e651f1da576ae9a72 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Daniel=20Kochma=C5=84ski?= Date: Wed, 19 Aug 2015 12:31:50 +0200 Subject: [PATCH] tests: fix pathname test MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Signed-off-by: Daniel Kochmański --- src/tests/bugs/test-ansi.lsp | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) 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"))) -- 2.9.0