Changeset 10981 for trunk/j/src/org/armedbear/lisp/tests/pathname-tests.lisp

Timestamp:

02/03/06 17:42:07 (18 years ago)

Author:

piso

Message:

SILLY.2, PHYSICAL.30: changes for cmucl.

File:

• trunk/j/src/org/armedbear/lisp/tests/pathname-tests.lisp (modified) (4 diffs)

trunk/j/src/org/armedbear/lisp/tests/pathname-tests.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2005 Peter Graves
-;;; $Id: pathname-tests.lisp,v 1.50 2005-11-04 19:33:02 piso Exp $
+;;; $Id: pathname-tests.lisp,v 1.51 2006-02-03 17:42:07 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -393 +393 @@
 #-sbcl
 (deftest physical.30
-  #-(or allegro)
+  #-(or allegro cmu)
   (string= (namestring (make-pathname :name "..")) "..")
   #+allegro
@@ -399 +399 @@
            #-windows "../"
            #+windows "..\\")
+  #+cmu
+  (signals-error (make-pathname :name "..") 'warning)
   t)
 
@@ -496 +498 @@
 
 (deftest silly.2
-  (signals-error (make-pathname :name "abc/def") 'error)
+  (signals-error (make-pathname :name "abc/def")
+                 #-cmu 'error
+                 #+cmu 'warning)
   t)