Changeset 10010


Ignore:
Timestamp:
09/23/05 17:55:23 (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

    r10009 r10010  
    33;;; This software is in the public domain and is provided with absolutely no
    44;;; warranty.
    5 
    6 ;;; Define a reasonable value for this in ~/.abclrc.
    7 (defvar *ansi-tests-translations*)
     5;;;
     6;;; Before loading this file, define "ansi-tests" as a logical pathname host
     7;;; (your path may vary):
     8;;;
     9;;;   (setf (logical-pathname-translations "ansi-tests")
     10;;;         '(("*.*.*" "/home/peter/gcl/ansi-tests/*.*")))
    811
    912(unless (member "RT" *modules* :test #'string=)
    10   (unless (boundp '*ansi-tests-translations*)
    11     (setf *ansi-tests-translations*
    12           '(("*.*.*" #-windows "/home/peter/gcl/ansi-tests/*.*"
    13                      #+windows "c:/cygwin/home/peter/gcl/ansi-tests/*.*")))
    14     (warn "~S is not defined; using ~S"
    15           '*ansi-tests-translations*
    16           *ansi-tests-translations*))
    17   (setf (logical-pathname-translations "ansi-tests") *ansi-tests-translations*)
     13  (unless (ignore-errors (logical-pathname-translations "ansi-tests"))
     14    (error "~S is not defined as a logical pathname host." "ansi-tests"))
    1815  (load "ansi-tests:rt-package.lsp")
    1916  (load #+abcl (compile-file-if-needed "ansi-tests:rt.lsp")
     
    2118        ;; Allegro.
    2219        #-abcl (compile-file "ansi-tests:rt.lsp"))
    23   (let ((*package* (find-package '#:rt)))
    24     (export (find-symbol (string '#:*expected-failures*))))
    2520  (provide "RT"))
    2621
    2722(rt:rem-all-tests)
     23
     24(let ((*package* (find-package '#:rt)))
     25  (export (find-symbol (string '#:*expected-failures*))))
     26
    2827(setf rt:*expected-failures* nil)
    2928
Note: See TracChangeset for help on using the changeset viewer.