r5451: *** empty log message ***

[xlunit.git] / package.lisp

diff --git a/package.lisp b/package.lisp
index fc7291a14aba90f1a7598e2a913efa2209c9f8a6..c2b1780eae6d4cc6890996f52f7af148006d30b7 100644 (file)
--- a/package.lisp
+++ b/package.lisp
@@ -2,27 +2,35 @@
 ;;;; *************************************************************************
 ;;;; FILE IDENTIFICATION
 ;;;;
-;;;; Name:        package.lisp
-;;;; Purpose:     Package definition for XLTEST
-;;;; Authors:     Kevin Rosenberg and Craig Brozefsky
+;;;; ID:      $Id: package.lisp,v 1.5 2003/08/04 12:16:13 kevin Exp $
+;;;; Purpose: Package definition for XLUnit
 ;;;;
-;;;; $Id: package.lisp,v 1.3 2003/08/04 09:50:33 kevin Exp $
+;;;; $Id: package.lisp,v 1.5 2003/08/04 12:16:13 kevin Exp $
 ;;;; *************************************************************************
 
 (in-package #:cl-user)
 
-(defpackage #:xlunit-framework
-  (:use #:common-lisp)
-  (:nicknames #:xlunit #:xptest)
+(defpackage #:xlunit
+  (:use #:cl)
   (:export
-     ;;; Framework classes
+   
+   ;; fixture
+   #:test-fixture
    #:setup
    #:teardown
-   #:perform-test
-   #:test-failure
-   #:failure
    #:run-test
    #:make-test
+
+   ;; assert
+   #:assert-equal
+   #:assert-true
+   #:assert-false
+   #:test-assert
+   #:test-failure
+   #:failure
+
+   ;; suite.lisp
+   #:text-testrunner
    #:make-test-suite
    #:setup-testsuite-named
    #:teardown-testsuite-named
@@ -30,16 +38,14 @@
    #:test-named
    #:remove-test
    #:tests
-   #:test-result
-   #:report-result
-   #:make-test-suite-for-fixture
-   #:assert-equal
-   #:assert-true
-   #:assert-false
-   #:test-assert
-   #:test-fixture
-   #:text-testrunner
+   
+   ;; printer.lisp
    #:summary
+   
+   ;; result.lisp
+   #:test-result
+   #:make-test-result
+   #:was-successful
    )
-  (:documentation "This is the XP TestSuite Framework."))
+  (:documentation "This is the XLUnit Framework."))