1 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
2 ;;;; *************************************************************************
3 ;;;; FILE IDENTIFICATION
6 ;;;; Purpose: ASDF definition file for Xlunit
7 ;;;; Programmer: Kevin M. Rosenberg
8 ;;;; Date Started: Aug 2003
10 ;;;; $Id: xlunit.asd,v 1.4 2003/08/04 17:04:50 kevin Exp $
11 ;;;; *************************************************************************
13 (defpackage #:xlunit-system (:use #:asdf #:cl))
14 (in-package #:xlunit-system)
18 :author "Kevin Rosenberg based on work by Craig Brozensky"
19 :maintainer "Kevin M. Rosenberg <kmr@debian.org>"
21 :description "Extreme Lisp Testing Suite"
22 :long-description "The XLUnit package is toolkit for building test suites. It is based on the XPTest package by Craig Brozensky and the JUnit package by Kent Beck."
36 (defmethod perform ((o test-op) (c (eql (find-system 'xlunit))))
37 (oos 'load-op 'xlunit-tests :force t)
38 (oos 'test-op 'xlunit-tests :force t))
40 (defsystem xlunit-tests
42 :components ((:file "tests")))
44 (defmethod perform ((o test-op) (c (eql (find-system 'xlunit-tests))))
45 (or (funcall (intern (symbol-name '#:do-tests)
46 (find-package '#:xlunit-tests)))
47 (error "test-op failed")))