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