From 36e3efba208a32b8348bef7881d0750716da3cee Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Tue, 17 Aug 2004 23:30:08 +0000 Subject: [PATCH] Fixed two busted tests --- ansi-tests/pathname-match-p.lsp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/ansi-tests/pathname-match-p.lsp b/ansi-tests/pathname-match-p.lsp index 01b1dd6f..6b51d980 100644 --- a/ansi-tests/pathname-match-p.lsp +++ b/ansi-tests/pathname-match-p.lsp @@ -36,15 +36,17 @@ (deftest pathname-match-p.5 (let ((pn1 (make-pathname :directory '(:relative :wild))) (pn2 (make-pathname :directory nil))) - (pathname-match-p pn1 pn2)) + (and (wild-pathname-p pn1) + (not (pathname-directory pn2)) + (not (pathname-match-p pn1 pn2)))) nil) (deftest pathname-match-p.6 (let ((pn1 (make-pathname :version :wild)) (pn2 (make-pathname))) (and (wild-pathname-p pn1) - (not (wild-pathname-p pn2)) - (pathname-match-p pn1 pn2))) + (not (pathname-version pn2)) + (not (pathname-match-p pn1 pn2)))) nil) ;;; Here are error tests -- GitLab