Looks good to me.
Cheers -- Marco
On Feb 11, 2011, at 21:28 , Robert Brown wrote:
I'd ilke to add the ability to test cl-unification by evaluating either of:
(asdf:test-system 'cl-unification) (asdf:test-system 'cl-unification-test)
The change involves adding one line:
:in-order-to ((test-op (test-op :cl-unification-test)))
to cl-unification.asd and adding the cl-unification-test.asd file below. Any objections?
bob
==========
;;;; cl-unification-test.asd
(in-package #:asdf)
;; Tests implemented using the ptester framework are run at *load* time, so ;; we tell ASDF that loading a file containing ptester code is never done. ;; This causes ASDF to run all the tests whenever ASDF:LOAD-SYSTEM or ;; ASDF:TEST-SYSTEM is called with argument CL-UNIFICATION-TEST.
(defclass ptester-source-file (cl-source-file) () (:documentation "A Common Lisp source file containing ptester code."))
(defmethod operation-done-p ((operation load-op) (component ptester-source-file)) nil)
(in-package #:common-lisp-user)
(defpackage #:cl-unification-test-system (:use #:common-lisp #:asdf))
(in-package #:cl-unification-test-system)
(defsystem #:cl-unification-test :depends-on (:cl-unification :ptester) :components ((:module "test" :components ((:ptester-source-file "unification-tests")))))
cl-unification-devel site list cl-unification-devel@common-lisp.net http://common-lisp.net/mailman/listinfo/cl-unification-devel
-- Marco Antoniotti