1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10; Package: umlisp-tests -*-
2 ;;;; *************************************************************************
3 ;;;; FILE IDENTIFICATION
6 ;;;; Purpose: Basic tests for UMLisp
7 ;;;; Author: Kevin M. Rosenberg
8 ;;;; Date Started: May 2003
12 ;;;; This file, part of UMLisp, is
13 ;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
15 ;;;; UMLisp users are granted the rights to distribute and use this software
16 ;;;; as governed by the terms of the GNU General Public License.
17 ;;;; *************************************************************************
19 (in-package #:umlisp-tests)
21 (defvar *rt-basic* nil)
22 (defvar *rt-parse* nil)
23 (defvar *error-count* 0)
24 (defvar *report-stream* *standard-output*)
26 (setq regression-test::*catch-errors* nil)
29 (regression-test:rem-all-tests)
30 (dolist (test-form (append *rt-basic* *rt-parse*))
32 (let ((remaining (regression-test:do-tests *report-stream*)))
33 (when (regression-test:pending-tests)
34 (incf *error-count* (length remaining))))