Changeset 10092


Ignore:
Timestamp:
10/12/05 15:10:25 (16 years ago)
Author:
piso
Message:

Updated tests to match behavior of CMUCL 2005-10 snapshot.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/tests/pathname-tests.lisp

    r10086 r10092  
    22;;;
    33;;; Copyright (C) 2005 Peter Graves
    4 ;;; $Id: pathname-tests.lisp,v 1.42 2005-10-08 03:36:03 piso Exp $
     4;;; $Id: pathname-tests.lisp,v 1.43 2005-10-12 15:10:25 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    7373    ok))
    7474
    75 (defun check-windows-pathname (pathname expected-host expected-device 
     75(defun check-windows-pathname (pathname expected-host expected-device
    7676                                        expected-directory expected-name
    7777                                        expected-type)
     
    279279  (check-readable-or-signals-error (make-pathname :name "."))
    280280  t)
    281 #+(or lispworks (and allegro windows))
     281#+(or cmu lispworks (and allegro windows))
    282282(pushnew 'physical.21 *expected-failures*)
    283283
     
    335335  (check-readable-or-signals-error (make-pathname :name ".."))
    336336  t)
    337 #+(or clisp lispworks)
     337#+(or clisp cmu lispworks)
    338338(pushnew 'physical.27 *expected-failures*)
    339339
     
    369369#-sbcl
    370370(deftest physical.30
    371   #-(or allegro cmu)
     371  #-(or allegro)
    372372  (string= (namestring (make-pathname :name "..")) "..")
    373373  #+allegro
     
    375375           #-windows "../"
    376376           #+windows "..\\")
    377   #+cmu (signals-error (namestring (make-pathname :name "..")) 'error)
    378377  t)
    379378
     
    13261325                                        :directory '(:relative "foo")
    13271326                                        :name "bar"))
    1328         (default-pathname #p"/aaa/bbb/ccc/ddd/eee")) 
     1327        (default-pathname #p"/aaa/bbb/ccc/ddd/eee"))
    13291328    #-allegro
    13301329    (check-merge-pathnames pathname default-pathname
     
    14441443  (signals-error (make-pathname :name "foo" :type ".txt") 'error)
    14451444  t)
    1446 #+(or allegro lispworks)
     1445#+(or allegro cmu lispworks)
    14471446(pushnew 'sbcl.50 *expected-failures*)
    14481447
Note: See TracChangeset for help on using the changeset viewer.