Changeset 10288


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

Use test-utilities.lisp to load test infrastructure.

Location:
trunk/j/src/org/armedbear/lisp/tests
Files:
4 edited

Legend:

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

    r10101 r10288  
    1717;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
    1818
    19 ;; Before loading this file, define "ansi-tests" as a logical pathname host
    20 ;; (your path may vary):
    21 ;;
    22 ;;   (setf (logical-pathname-translations "ansi-tests")
    23 ;;         '(("*.*.*" "/home/peter/gcl/ansi-tests/*.*")))
    24 
    25 #+:sbcl (require '#:sb-posix)
    26 
    27 #+(and allegro mswindows)
    28 (pushnew :windows *features*)
    29 #+(and clisp win32)
    30 (pushnew :windows *features*)
    31 #+(and lispworks win32)
    32 (pushnew :windows *features*)
    33 
    34 (unless (member "RT" *modules* :test #'string=)
    35   (unless (ignore-errors (logical-pathname-translations "ansi-tests"))
    36     (error "~S is not defined as a logical pathname host." "ansi-tests"))
    37   (load "ansi-tests:rt-package.lsp")
    38   (load #+abcl (compile-file-if-needed "ansi-tests:rt.lsp")
    39         ;; Force compilation to avoid fasl name conflict between SBCL and
    40         ;; Allegro.
    41         #-abcl (compile-file "ansi-tests:rt.lsp"))
    42   (provide "RT"))
    43 
    44 (regression-test:rem-all-tests)
    45 
    46 (let ((*package* (find-package '#:regression-test)))
    47   (export (find-symbol (string '#:*expected-failures*))))
    48 
    49 (setf regression-test:*expected-failures* nil)
    50 
    51 (unless (find-package '#:test)
    52   (defpackage #:test (:use #:cl #:regression-test)))
     19#+sbcl
     20(require '#:sb-posix)
     21
     22(load "test-utilities.lisp")
    5323
    5424(in-package #:test)
  • trunk/j/src/org/armedbear/lisp/tests/java-tests.lisp

    r10284 r10288  
    22;;;
    33;;; Copyright (C) 2005 Peter Graves
    4 ;;; $Id: java-tests.lisp,v 1.13 2005-10-30 11:30:23 piso Exp $
     4;;; $Id: java-tests.lisp,v 1.14 2005-10-30 12:37:11 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 (unless (member "RT" *modules* :test #'string=)
    21   (load "rt-package.lisp")
    22   (load #+abcl (compile-file-if-needed "rt.lisp")
    23         ;; Force compilation to avoid fasl name conflict between SBCL and
    24         ;; Allegro.
    25         #-abcl (compile-file "rt.lisp"))
    26   (provide "RT"))
    27 
    28 ;; FIXME
    2920(load "test-utilities.lisp")
    30 
    31 (regression-test:rem-all-tests)
    32 
    33 (setf regression-test:*expected-failures* nil)
    34 
    35 (unless (find-package '#:test)
    36   (defpackage #:test (:use #:cl #:regression-test)))
    3721
    3822(in-package #:test)
  • trunk/j/src/org/armedbear/lisp/tests/math-tests.lisp

    r10285 r10288  
    22;;;
    33;;; Copyright (C) 2005 Peter Graves
    4 ;;; $Id: math-tests.lisp,v 1.6 2005-10-30 11:31:13 piso Exp $
     4;;; $Id: math-tests.lisp,v 1.7 2005-10-30 12:36:44 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2020;;; Some of these tests are based on tests in the CLISP test suite.
    2121
    22 (unless (member "RT" *modules* :test #'string=)
    23   (load "rt-package.lisp")
    24   (load #+abcl (compile-file-if-needed "rt.lisp")
    25         ;; Force compilation to avoid fasl name conflict between SBCL and
    26         ;; Allegro.
    27         #-abcl (compile-file "rt.lisp"))
    28   (provide "RT"))
    29 
    30 ;; FIXME
    3122(load "test-utilities.lisp")
    32 
    33 (regression-test:rem-all-tests)
    34 
    35 (setf regression-test:*expected-failures* nil)
    36 
    37 (unless (find-package '#:test)
    38   (defpackage #:test (:use #:cl #:regression-test)))
    3923
    4024(in-package #:test)
  • trunk/j/src/org/armedbear/lisp/tests/pathname-tests.lisp

    r10100 r10288  
    22;;;
    33;;; Copyright (C) 2005 Peter Graves
    4 ;;; $Id: pathname-tests.lisp,v 1.48 2005-10-14 16:58:38 piso Exp $
     4;;; $Id: pathname-tests.lisp,v 1.49 2005-10-30 12:38:21 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 ;; 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/*.*")))
    25 
    26 #+(and allegro mswindows)
    27 (pushnew :windows *features*)
    28 #+(and clisp win32)
    29 (pushnew :windows *features*)
    30 #+(and lispworks win32)
    31 (pushnew :windows *features*)
    32 
    33 (unless (member "RT" *modules* :test #'string=)
    34   (unless (ignore-errors (logical-pathname-translations "ansi-tests"))
    35     (error "~S is not defined as a logical pathname host." "ansi-tests"))
    36   (load (translate-logical-pathname "ansi-tests:rt-package.lsp"))
    37   (load #+abcl (compile-file-if-needed "ansi-tests:rt.lsp")
    38         ;; Force compilation to avoid fasl name conflict between SBCL and
    39         ;; Allegro.
    40         #-abcl (compile-file (translate-logical-pathname "ansi-tests:rt.lsp")))
    41   (provide "RT"))
    42 
    43 (regression-test:rem-all-tests)
    44 
    45 (let ((*package* (find-package '#:regression-test)))
    46   (export (find-symbol (string '#:*expected-failures*))))
    47 
    48 (setf regression-test:*expected-failures* nil)
    49 
    50 (unless (find-package '#:test)
    51   (defpackage #:test (:use #:cl #:regression-test)))
     20(load "test-utilities.lisp")
    5221
    5322(in-package #:test)
    54 
    55 (defmacro signals-error (form error-name)
    56   `(locally (declare (optimize safety))
    57      (handler-case ,form
    58      (error (c) (typep c ,error-name))
    59      (:no-error (&rest ignored) (declare (ignore ignored)) nil))))
    6023
    6124(defun check-physical-pathname (pathname expected-directory expected-name expected-type)
Note: See TracChangeset for help on using the changeset viewer.