From 1d4e709fc3bbc018824bcb9a8492fc6000aa4574 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <fare@tunes.org>
Date: Sun, 21 Mar 2010 11:02:02 -0400
Subject: [PATCH] Comment out non-portable test cases that uselessly trip
 allegro.

---
 test/test-utilities.script | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/test/test-utilities.script b/test/test-utilities.script
index 602ea487..e252a313 100644
--- a/test/test-utilities.script
+++ b/test/test-utilities.script
@@ -20,9 +20,10 @@
  (every (complement #'directory-pathname-p)
   (list
    (make-pathname :name "foo" :type nil :directory '(:absolute "tmp"))
-   (make-pathname :name nil :type "bar" :directory '(:absolute "tmp"))
-   (make-pathname :name "." :type nil :directory '(:absolute "tmp"))
-   (make-pathname :name "." :type "" :directory '(:absolute "tmp")))))
+   (make-pathname :name nil :type "bar" :directory '(:absolute "tmp")))))
+;; These are funky and non portable. Omit from tests.
+;; (make-pathname :name "." :type nil :directory '(:absolute "tmp"))
+;; (make-pathname :name "." :type "" :directory '(:absolute "tmp"))
 (assert (equal (multiple-value-list (component-name-to-pathname-components "" t))
                '(:relative nil nil)))
 (assert (equal (multiple-value-list (component-name-to-pathname-components "" nil))
-- 
GitLab