[PATCH 3/3] Update project configuration
Kyler Braun
braun.kyler.e at gmail.com
Sat May 15 00:48:35 UTC 2021
---
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 at metabang.com>"
- :maintainer "Gary Warren King <gwking at 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 at metabang.com>"
+ :maintainer "Gary Warren King <gwking at 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))
--
2.31.1
More information about the trivial-timeout-devel
mailing list