Changeset 10029


Ignore:
Timestamp:
09/25/05 18:49:38 (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

    r10022 r10029  
    22;;;
    33;;; Copyright (C) 2005 Peter Graves
    4 ;;; $Id: pathname-tests.lisp,v 1.25 2005-09-24 19:04:36 piso Exp $
     4;;; $Id: pathname-tests.lisp,v 1.26 2005-09-25 18:49:38 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    10211021(deftest sbcl.46
    10221022  (signals-error (pathname (make-string-input-stream "FOO"))
    1023                  #-allegro 'type-error
    1024                  #+allegro 'stream-error)
     1023                 #-(or allegro cmu) 'type-error
     1024                 #+allegro          'stream-error
     1025                 #+cmu              'error)
    10251026  t)
    10261027
     
    10481049  (check-readable-or-signals-error (make-pathname :name "foo." :type "txt"))
    10491050  t)
     1051#-cmu
    10501052(deftest sbcl.52
    10511053  (check-readable-or-signals-error (parse-namestring "SCRATCH:FOO.TXT.1"))
    10521054  t)
     1055#-cmu
    10531056(deftest sbcl.53
    10541057  (check-readable-or-signals-error (parse-namestring "SCRATCH:FOO.TXT.NEWEST"))
    10551058  t)
     1059#-cmu
    10561060(deftest sbcl.54
    10571061  (check-readable-or-signals-error (parse-namestring "SCRATCH:FOO.TXT"))
Note: See TracChangeset for help on using the changeset viewer.