Changeset 10022


Ignore:
Timestamp:
09/24/05 19:04:36 (16 years ago)
Author:
piso
Message:

GPL.

File:
1 edited

Legend:

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

    r10021 r10022  
    11;;; pathname-tests.lisp
    22;;;
    3 ;;; This software is in the public domain and is provided with absolutely no
    4 ;;; warranty.
     3;;; Copyright (C) 2005 Peter Graves
     4;;; $Id: pathname-tests.lisp,v 1.25 2005-09-24 19:04:36 piso Exp $
    55;;;
    6 ;;; Before loading this file, define "ansi-tests" as a logical pathname host
    7 ;;; (your path may vary):
     6;;; This program is free software; you can redistribute it and/or
     7;;; modify it under the terms of the GNU General Public License
     8;;; as published by the Free Software Foundation; either version 2
     9;;; of the License, or (at your option) any later version.
    810;;;
    9 ;;;   (setf (logical-pathname-translations "ansi-tests")
    10 ;;;         '(("*.*.*" "/home/peter/gcl/ansi-tests/*.*")))
     11;;; This program is distributed in the hope that it will be useful,
     12;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
     13;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     14;;; GNU General Public License for more details.
     15;;;
     16;;; You should have received a copy of the GNU General Public License
     17;;; along with this program; if not, write to the Free Software
     18;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
     19
     20;; Before loading this file, define "ansi-tests" as a logical pathname host
     21;; (your path may vary):
     22;;
     23;;   (setf (logical-pathname-translations "ansi-tests")
     24;;         '(("*.*.*" "/home/peter/gcl/ansi-tests/*.*")))
    1125
    1226(unless (member "RT" *modules* :test #'string=)
     
    10741088;;; directory lists.
    10751089(deftest sbcl.58
    1076   (equal (namestring #p"/tmp/*/") "/tmp/*/")
     1090  (check-namestring #p"/tmp/*/" "/tmp/*/")
    10771091  t)
    10781092
    10791093#-allegro
    10801094(deftest sbcl.59
    1081   (string= (with-standard-io-syntax (write-to-string #p"/foo")) "#P\"/foo\"")
     1095  (string= (with-standard-io-syntax (write-to-string #p"/foo"))
     1096           #-windows "#P\"/foo\""
     1097           #+windows "#P\"\\\\foo\"")
    10821098  t)
    10831099
     
    10851101(deftest sbcl.60
    10861102  (string= (with-standard-io-syntax (write-to-string #p"/foo" :readably nil))
    1087            "#P\"/foo\"")
     1103           #-windows "#P\"/foo\""
     1104           #+windows "#P\"\\\\foo\"")
    10881105  t)
    10891106
     
    10911108(deftest sbcl.61
    10921109  (string= (with-standard-io-syntax (write-to-string #p"/foo" :escape nil))
    1093            "#P\"/foo\"")
     1110           #-windows "#P\"/foo\""
     1111           #+windows "#P\"\\\\foo\"")
    10941112  t)
    10951113
    10961114(deftest sbcl.62
    10971115  (string= (with-standard-io-syntax (write-to-string #p"/foo" :readably nil :escape nil))
    1098            "/foo")
     1116           #-windows "/foo"
     1117           #+windows "\\\\foo")
    10991118  t)
    11001119
Note: See TracChangeset for help on using the changeset viewer.