X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=package.lisp;h=ffaa50de62d978d82ca7451f5c379b708cfd351d;hb=381a23bb7ab8dd206bcd430ce9c7ee9c53e52f13;hp=fc7291a14aba90f1a7598e2a913efa2209c9f8a6;hpb=34803ef0f0a02430b51382e7684f6d775d135953;p=xlunit.git

diff --git a/package.lisp b/package.lisp
index fc7291a..ffaa50d 100644
--- a/package.lisp
+++ b/package.lisp
@@ -2,27 +2,37 @@
 ;;;; *************************************************************************
 ;;;; FILE IDENTIFICATION
 ;;;;
-;;;; Name:        package.lisp
-;;;; Purpose:     Package definition for XLTEST
-;;;; Authors:     Kevin Rosenberg and Craig Brozefsky
+;;;; ID:      $Id: package.lisp,v 1.7 2003/08/04 17:04:49 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.7 2003/08/04 17:04:49 kevin Exp $
 ;;;; *************************************************************************
 
 (in-package #:cl-user)
 
-(defpackage #:xlunit-framework
-  (:use #:common-lisp)
-  (:nicknames #:xlunit #:xptest)
+(defpackage #:xlunit
+  (:use #:cl)
   (:export
-     ;;; Framework classes
-   #:setup
-   #:teardown
-   #:perform-test
-   #:test-failure
-   #:failure
+   
+   ;; test-case.lisp
+   #:test-case
+   #:def-test-method
+   #:set-up
+   #:tear-down
+   #:run
    #:run-test
    #:make-test
+
+   ;; assert
+   #:assert-true
+   #:assert-false
+   #:assert-equal
+   #:assert-eql
+   #:test-failure
+   #:failure
+
+   ;; suite.lisp
+   #:textui-test-run
    #:make-test-suite
    #:setup-testsuite-named
    #:teardown-testsuite-named
@@ -30,16 +40,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-results
+   #:make-test-results
+   #:was-successful
    )
-  (:documentation "This is the XP TestSuite Framework."))
+  (:documentation "This is the XLUnit Framework."))