[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