Changeset 10287


Ignore:
Timestamp:
10/30/05 12:34:27 (16 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

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

    r10286 r10287  
    22;;;
    33;;; Copyright (C) 2005 Peter Graves
    4 ;;; $Id: test-utilities.lisp,v 1.6 2005-10-30 11:36:45 piso Exp $
     4;;; $Id: test-utilities.lisp,v 1.7 2005-10-30 12:34:27 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    1818;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
    1919
    20 (eval-when (:compile-toplevel :load-toplevel :execute)
    21   (unless (find-package '#:regression-test)
    22     (load "rt-package.lisp")))
     20#+(and allegro mswindows)
     21(pushnew :windows *features*)
     22#+(and clisp win32)
     23(pushnew :windows *features*)
     24#+(and lispworks win32)
     25(pushnew :windows *features*)
     26
     27(unless (member "RT" *modules* :test #'string=)
     28  (load "rt-package.lisp")
     29  (load #+abcl (compile-file-if-needed "rt.lisp")
     30        ;; Force compilation to avoid fasl name conflict between SBCL and
     31        ;; Allegro.
     32        #-abcl (compile-file "rt.lisp"))
     33  (provide "RT"))
     34
     35(unless (find-package '#:test)
     36  (defpackage #:test (:use #:cl #:regression-test)))
    2337
    2438(in-package #:regression-test)
     
    3145       (error (c) (typep c ,error-name))
    3246       (:no-error (&rest ignored) (declare (ignore ignored)) nil))))
     47
     48(rem-all-tests)
     49
     50(setf *expected-failures* nil)
Note: See TracChangeset for help on using the changeset viewer.