;;; -*- Syntax: Ansi-Common-Lisp; Base: 10; Mode: lisp; Package: cl-user -*-
;;; $Id: package.lisp,v 1.2 2003/06/23 21:06:57 tril Exp $

(in-package "CL-USER")

(eval-when (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)

  (defpackage "XP-TEST-FRAMEWORK"
    (:use :common-lisp)
    (:nicknames "XP-TEST" "XPTEST")
    (:export
     ;;; Framework classes
     "SETUP"
     "TEARDOWN"
     "PERFORM-TEST"
     "TEST-FAILURE"
     "FAILURE"
     "RUN-TEST"
     "DEF-TEST-FIXTURE"
     "MAKE-TEST-CASE"
     "MAKE-TEST-SUITE"
     "SETUP-TESTSUITE-NAMED"
     "TEARDOWN-TESTSUITE-NAMED"
     "ADD-TEST"
     "TEST-NAMED"
     "REMOVE-TEST"
     "TESTS"
     "TEST-RESULT"
     "REPORT-RESULT"
     "TEST-SUMMARY"
     )
    (:documentation "This is the XP TestSuite Framework."))

  (defpackage "XP-TEST-EXAMPLE"
    (:use :common-lisp :xp-test)
    (:export
     "MATH-TEST-SUITE"))
  )