Changeset 13011

Timestamp:

11/07/10 12:10:55 (13 years ago)

Author:

Mark Evenson

Message:

Test that MAKE-PATHNAME checks its arguments

File:

• trunk/abcl/test/lisp/abcl/pathname-tests.lisp (modified) (1 diff)

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

@@ -1660 +1660 @@
            )
   t)
+
+(deftest make-pathname.1
+    (handler-case 
+        (make-pathname :directory #p"/tmp/")
+      (type-error () t))
+  t)
+