tests/init.lisp

   1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10; Package: umlisp-tests -*-
   2 ;;;; *************************************************************************
   3 ;;;; FILE IDENTIFICATION
   4 ;;;;
   5 ;;;; Name:          basic.lisp
   6 ;;;; Purpose:       Basic tests for UMLisp
   7 ;;;; Author:        Kevin M. Rosenberg
   8 ;;;; Date Started:  May 2003
   9 ;;;;
  10 ;;;; $Id$
  11 ;;;;
  12 ;;;; This file, part of UMLisp, is
  13 ;;;;    Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
  14 ;;;;
  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 ;;;; *************************************************************************
  18
  19 (in-package #:umlisp-tests)
  20
  21 (defvar *rt-basic* nil)
  22 (defvar *rt-parse* nil)
  23 (defvar *error-count* 0)
  24 (defvar *report-stream* *standard-output*)
  25
  26 (setq regression-test::*catch-errors* nil)
  27
  28 (defun run-tests ()
  29   (regression-test:rem-all-tests)
  30   (dolist (test-form (append *rt-basic* *rt-parse*))
  31     (eval test-form))
  32   (let ((remaining (regression-test:do-tests *report-stream*)))
  33     (when (regression-test:pending-tests)
  34       (incf *error-count* (length remaining))))
  35   *error-count*)