---
Notes: I was unable to get the tests to run without these modifications. They were made rather quickly, and I wasn't entirely familiar with the project setup, so you might want to read them carefully before inclusion.
lift-local.config | 4 ++-- trivial-timeout-test.asd | 18 ------------------ trivial-timeout.asd | 20 ++++++++++++++++++-- 3 files changed, 20 insertions(+), 22 deletions(-)
diff --git a/lift-local.config b/lift-local.config index a595894..2f38767 100644 --- a/lift-local.config +++ b/lift-local.config @@ -23,10 +23,10 @@ ;;; leads to an error in lift in report-pathname ;; (:report-property :name "test-results/test-report")
-(:report-property :name "test-results/") +(:report-property :name "test-results") (:report-property :unique-name t) (:build-report) -(:report-property :name "website/output/") +(:report-property :full-pathname "website/output/") (:report-property :unique-name nil) (:build-report)
diff --git a/trivial-timeout-test.asd b/trivial-timeout-test.asd index f43bb6e..f5aa1f2 100644 --- a/trivial-timeout-test.asd +++ b/trivial-timeout-test.asd @@ -7,22 +7,4 @@ See file COPYING for details (defpackage #:trivial-timeout-test-system (:use #:cl #:asdf)) (in-package #:trivial-timeout-test-system)
-(defsystem trivial-timeout-test - :author "Gary Warren King gwking@metabang.com" - :maintainer "Gary Warren King gwking@metabang.com" - :licence "MIT Style License" - :description "Tests for trivial-timeout" - :components ((:module - "setup" - :pathname "tests/" - :components - ((:file "package") - (:file "tests" :depends-on ("package")))) - #+(or) - (:module - "tests" - :depends-on ("setup") - :components ((:file "test-timeout")))) - :depends-on (:lift :trivial-timeout)) -
diff --git a/trivial-timeout.asd b/trivial-timeout.asd index 5524cc7..9edf67f 100644 --- a/trivial-timeout.asd +++ b/trivial-timeout.asd @@ -30,7 +30,7 @@ Author: Gary King :components ((:module "source" :components ((:static-file "index.mmd")))))) - :in-order-to ((test-op (load-op trivial-timeout-test))) + :in-order-to ((test-op (load-op trivial-timeout/test))) :perform (test-op :after (op c) (funcall (intern (symbol-name '#:run-tests) :lift) @@ -42,4 +42,20 @@ Author: Gary King (c (eql (find-system 'trivial-timeout)))) (values nil))
- +(defsystem trivial-timeout/test + :author "Gary Warren King gwking@metabang.com" + :maintainer "Gary Warren King gwking@metabang.com" + :licence "MIT Style License" + :description "Tests for trivial-timeout" + :components ((:module + "setup" + :pathname "tests/" + :components + ((:file "package") + (:file "tests" :depends-on ("package")))) + #+(or) + (:module + "tests" + :depends-on ("setup") + :components ((:file "test-timeout")))) + :depends-on (:lift :trivial-timeout))