[armedbear-cvs] r13011 - trunk/abcl/test/lisp/abcl

[Mark Evenson]

Author: mevenson
Date: Sun Nov  7 07:10:55 2010
New Revision: 13011

Log:
Test that MAKE-PATHNAME checks its arguments



Modified:
   trunk/abcl/test/lisp/abcl/pathname-tests.lisp

Modified: trunk/abcl/test/lisp/abcl/pathname-tests.lisp
==============================================================================
--- trunk/abcl/test/lisp/abcl/pathname-tests.lisp	(original)
+++ trunk/abcl/test/lisp/abcl/pathname-tests.lisp	Sun Nov  7 07:10:55 2010
@@ -1659,3 +1659,10 @@
            ;;#+windows "\\foo"
            )
   t)
+
+(deftest make-pathname.1
+    (handler-case 
+        (make-pathname :directory #p"/tmp/")
+      (type-error () t))
+  t)
+