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"
18 (defmethod perform ((o test-op) (c (eql (find-system 'puri))))
19 (oos 'load-op 'puri-tests)
20 (oos 'test-op 'puri-tests))
23 :depends-on (:puri :ptester)
27 (defmethod perform ((o test-op) (c (eql (find-system 'puri-tests))))
28 (or (funcall (intern (symbol-name '#:do-tests)
29 (find-package :puri-tests)))
30 (error "test-op failed")))
32 (defmethod operation-done-p ((o test-op) (c (eql (find-system 'puri-tests))))