r5450: *** empty log message ***

[xlunit.git] / package.lisp

diff --git a/package.lisp b/package.lisp
index 049793c45758971d631ae49a43096e1a74622567..c2b1780eae6d4cc6890996f52f7af148006d30b7 100644 (file)
--- a/package.lisp
+++ b/package.lisp
@@ -2,29 +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
 ;;;;
-;;;; Put in public domain by Kevin Rosenberg and onShore, Inc
-;;;; $Id: package.lisp,v 1.1 2003/08/04 06:00:01 kevin Exp $
+;;;; $Id: package.lisp,v 1.5 2003/08/04 12:16:13 kevin Exp $
 ;;;; *************************************************************************
 
 (in-package #:cl-user)
 
-(defpackage #:xltest-framework
-  (:use #:common-lisp)
-  (:nicknames #:xltest #:xptest)
+(defpackage #:xlunit
+  (:use #:cl)
   (:export
-     ;;; Framework classes
+   
+   ;; fixture
+   #:test-fixture
    #:setup
    #:teardown
-   #:perform-test
+   #:run-test
+   #:make-test
+
+   ;; assert
+   #:assert-equal
+   #:assert-true
+   #:assert-false
+   #:test-assert
    #:test-failure
    #:failure
-   #:run-test
-   #:def-test-fixture
-   #:make-test-case
+
+   ;; suite.lisp
+   #:text-testrunner
    #:make-test-suite
    #:setup-testsuite-named
    #:teardown-testsuite-named
@@ -32,14 +38,14 @@
    #:test-named
    #:remove-test
    #:tests
+   
+   ;; printer.lisp
+   #:summary
+   
+   ;; result.lisp
    #:test-result
-   #:report-result
-   #:make-test-suite-for-fixture
-   #:assert-equal
-   #:assert-true
-   #:assert-false
-   #:test-assert
+   #:make-test-result
+   #:was-successful
    )
-  (:documentation "This is the XP TestSuite Framework."))
+  (:documentation "This is the XLUnit Framework."))
 
-(in-package #:xltest)