Changeset 10057


Ignore:
Timestamp:
09/28/05 15:30:39 (16 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

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

    r10049 r10057  
    22;;;
    33;;; Copyright (C) 2005 Peter Graves
    4 ;;; $Id: pathname-tests.lisp,v 1.33 2005-09-27 18:56:21 piso Exp $
     4;;; $Id: pathname-tests.lisp,v 1.34 2005-09-28 15:30:39 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    236236
    237237(deftest physical.20
     238  #-cmu
    238239  (check-readable (make-pathname :name "."))
     240  #+cmu
     241  (check-readable-or-signals-error (make-pathname :name "."))
    239242  t)
    240243#+lispworks
     
    286289#-(or sbcl)
    287290(deftest physical.26
     291  #-cmu
    288292  (check-readable (make-pathname :name ".."))
     293  #+cmu
     294  (check-readable-or-signals-error (make-pathname :name ".."))
    289295  t)
    290296#+(or clisp lispworks)
     
    338344#-sbcl
    339345(deftest physical.30
    340   #-allegro
     346  #-(or allegro cmu)
    341347  (string= (namestring (make-pathname :name "..")) "..")
    342348  #+allegro
    343349  (string= (namestring (make-pathname :name "..")) "../")
     350  #+cmu (signals-error (namestring (make-pathname :name "..")) 'error)
    344351  t)
    345352
     
    393400
    394401#+sbcl
    395 (deftest physical.30
     402(deftest physical.32
    396403  ;; Even though "effluvia" is defined as a logical host, "bop" is not a valid
    397404  ;; logical pathname version, so this can't be a logical pathname.
     
    609616  (equal (translate-pathname "foobar" "foo*" "")
    610617         #+(or allegro clisp) #p"bar"
    611          #+sbcl #p"foobar")
     618         #+(or cmu sbcl lispworks) #p"foobar")
    612619  #+abcl
    613620  (signals-error (translate-pathname "foobar" "foo*" "") 'error)
Note: See TracChangeset for help on using the changeset viewer.