1 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
2 ;;;; Programmer: Kevin Rosenberg
6 (defpackage #:puri-system (:use #:cl #:asdf))
7 (in-package #:puri-system)
12 :maintainer "Kevin M. Rosenberg <kmr@debian.org>"
13 :licence "GNU Lesser General Public License"
14 :description "Portable Universal Resource Indentifier Library"
19 (defmethod perform ((o test-op) (c (eql (find-system 'puri))))
20 (oos 'load-op 'puri-tests)
21 (oos 'test-op 'puri-tests))
24 :depends-on (:puri :ptester)
28 (defmethod perform ((o test-op) (c (eql (find-system 'puri-tests))))
29 (or (funcall (intern (symbol-name '#:do-tests)
30 (find-package :puri-tests)))
31 (error "test-op failed")))
33 (defmethod operation-done-p ((o test-op) (c (eql (find-system 'puri-tests))))