package.lisp

   1 ;;; -*- Syntax: Ansi-Common-Lisp; Base: 10; Mode: lisp; Package: cl-user -*-
   2 ;;; $Id: package.lisp,v 1.1 2002/10/22 18:46:20 kevin Exp $
   3
   4 (in-package :cl-user)
   5
   6 (eval-when (:compile-toplevel :load-toplevel :execute)
   7
   8   (defpackage :xp-test-framework
   9     (:use #:common-lisp)
  10     (:nicknames #:xp-test #:xptest)
  11     (:export
  12      ;;; Framework classes
  13      #:setup
  14      #:teardown
  15      #:perform-test
  16      #:test-failure
  17      #:failure
  18      #:run-test
  19      #:def-test-fixture
  20      #:make-test-case
  21      #:make-test-suite
  22      #:setup-testsuite-named
  23      #:teardown-testsuite-named
  24      #:add-test
  25      #:test-named
  26      #:remove-test
  27      #:tests
  28      #:test-result
  29      #:report-result
  30      )
  31     (:documentation "This is the XP TestSuite Framework."))
  32
  33   (defpackage :xp-test-example
  34     (:use #:common-lisp #:xp-test)
  35     (:export
  36      #:math-test-suite))
  37   )
  38