[armedbear-cvs] r12406 - in trunk/abcl: . test/lisp/abcl

[Mark Evenson]

Author: mevenson
Date: Fri Jan 29 03:45:34 2010
New Revision: 12406

Log:
Where possible collect bug reports as unit tests so they can stay fixed.


Added:
   trunk/abcl/test/lisp/abcl/bugs.lisp
Modified:
   trunk/abcl/abcl.asd

Modified: trunk/abcl/abcl.asd
==============================================================================
--- trunk/abcl/abcl.asd	(original)
+++ trunk/abcl/abcl.asd	Fri Jan 29 03:45:34 2010
@@ -38,6 +38,7 @@
                       (:file "jar-file")
                       (:file "math-tests")
                       (:file "misc-tests")
+                      (:file "bugs")
                       (:file "pathname-tests")))))
 
 (defmethod perform ((o test-op) (c (eql (find-system 'abcl-test-lisp))))

Added: trunk/abcl/test/lisp/abcl/bugs.lisp
==============================================================================
--- (empty file)
+++ trunk/abcl/test/lisp/abcl/bugs.lisp	Fri Jan 29 03:45:34 2010
@@ -0,0 +1,26 @@
+(in-package :abcl.test.lisp)
+
+;;; When these bugs get fixed, they should be moved elsewhere in the
+;;; testsuite so they remain fixed.
+
+(deftest bugs.translate-logical-pathname
+    #|
+    Date: Mon, 18 Jan 2010 10:51:07 -0500
+    Message-ID: <29af5e2d1001180751l7cf79a3ay929cef1deb9ed063 at mail.gmail.com>
+    Subject: Re: [armedbear-devel] translate-logical-pathname and :wild-inferiors 
+    regression
+    From: Alan Ruttenberg <alanruttenberg at gmail.com>
+    |#
+    (progn
+      (setf (logical-pathname-translations "ido") 
+            '((#P"IDO:IDO-CORE;**;*.*" 
+               #P"/Users/alanr/repos/infectious-disease-ontology/trunk/src/ontology/ido-core/**/*.*") 
+              (#P"IDO:IMMUNOLOGY;**;*.*"
+               #P"/Users/alanr/repos/infectious-disease-ontology/trunk/src/ontology/immunology/**/*.*") 
+              (#P"IDO:TOOLS;**;*.*" 
+               #P"/Users/alanr/repos/infectious-disease-ontology/trunk/src/tools/**/*.*") 
+              (#P"IDO:LIB;**;*.*"
+               #P"/Users/alanr/repos/infectious-disease-ontology/trunk/lib/**/*.*")))
+      (translate-pathname #P"IDO:IMMUNOLOGY;" #P"IDO:IMMUNOLOGY;**;*.*" 
+                          #P"/Users/alanr/repos/infectious-disease-ontology/trunk/src/ontology/**/*.*"))
+  #P"/users/alanr/repos/infectious-disease-ontology/trunk/src/ontology/immunology/")
\ No newline at end of file