r5448: *** empty log message ***
authorKevin M. Rosenberg <kevin@rosenberg.net>
Mon, 4 Aug 2003 09:51:36 +0000 (09:51 +0000)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Mon, 4 Aug 2003 09:51:36 +0000 (09:51 +0000)
xltest.asd [deleted file]

diff --git a/xltest.asd b/xltest.asd
deleted file mode 100644 (file)
index 78655ba..0000000
+++ /dev/null
@@ -1,39 +0,0 @@
-;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
-;;;; *************************************************************************
-;;;; FILE IDENTIFICATION
-;;;;
-;;;; Name:          xlunit.asd
-;;;; Purpose:       ASDF definition file for Xlunit
-;;;; Programmer:    Kevin M. Rosenberg
-;;;; Date Started:  Aug 2003
-;;;;
-;;;; $Id: xltest.asd,v 1.3 2003/08/04 09:50:33 kevin Exp $
-;;;; *************************************************************************
-
-(defpackage #:xlunit-system (:use #:asdf #:cl))
-(in-package #:xlunit-system)
-
-(defsystem xlunit
-  :name "xlunit"
-  :author "Kevin Rosenberg based on work by Craig Brozensky"
-  :maintainer "Kevin M. Rosenberg <kmr@debian.org>"
-  :licence "Public domain"
-  :description "Extreme Lisp Testing Suite"
-  :long-description "The XLUNIT package is toolkit for building test suites based on the XPTEST package by Craig Brozensky."
-  
-  :components
-  ((:file "package")
-   (:file "src" :depends-on ("package"))))
-
-(defmethod perform ((o test-op) (c (eql (find-system 'xlunit))))
-  (oos 'load-op 'xlunit-tests)
-  (oos 'test-op 'xlunit-tests))
-
-(defsystem xlunit-tests
-  :depends-on (xlunit)
-  :components ((:file "tests")))
-
-(defmethod perform ((o test-op) (c (eql (find-system 'xlunit-tests))))
-  (or (funcall (intern (symbol-name #:do-tests)
-                      (find-package #:xlunit-tests)))
-      (error "test-op failed")))