From 527f5b4884bd4306331f2db8c9085db9884d33b4 Mon Sep 17 00:00:00 2001 From: Helmut Merz Date: Mon, 27 May 2024 09:12:17 +0200 Subject: [PATCH] provide test systems for scopes and scopes/forge, use with: (asdf:test-system :scopes) --- scopes-forge.asd | 9 ++++++--- scopes.asd | 16 ++++++++++++---- 2 files changed, 18 insertions(+), 7 deletions(-) diff --git a/scopes-forge.asd b/scopes-forge.asd index 48e7386..c4ac93b 100644 --- a/scopes-forge.asd +++ b/scopes-forge.asd @@ -10,7 +10,10 @@ :components ((:file "forge/forge") (:file "testing") (:file "test/test-forge" :depends-on ("testing" "forge/forge"))) - :long-description "scopes/forge: A Forth-like stack-oriented language") - ;;:in-order-to ((test-op (test-op "scopes/test_forge")))) - + :long-description "scopes/forge: A Forth-like stack-oriented language" + :in-order-to ((test-op (test-op "scopes-forge/test")))) +(defsystem :scopes-forge/test + :depends-on (:scopes-forge) + :components ((:file "test/test-forge")) + :perform (test-op (o c) (funcall #'scopes/test-forge:run))) diff --git a/scopes.asd b/scopes.asd index 3921129..f7652d3 100644 --- a/scopes.asd +++ b/scopes.asd @@ -6,15 +6,23 @@ :version "0.0.1" :homepage "https://www.cyberconcepts.org" :description "" - :depends-on (:alexandria :com.inuoe.jzon :dbi :local-time :log4cl :str :sxql) + :depends-on (:alexandria :chanl :com.inuoe.jzon :dbi :local-time :log4cl :str :sxql) :components ((:file "forge/forge") (:file "storage/storage") (:file "storage/tracking" :depends-on ("storage/storage")) (:file "testing") (:file "test/test-forge" :depends-on ("testing" "forge/forge")) - (:file "test/test-storage" :depends-on ("testing" "storage/storage" "storage/tracking"))) - :long-description "scopes: generic data processing facilities") + (:file "test/test-storage" + :depends-on ("testing" "storage/storage" "storage/tracking"))) + :long-description "scopes: generic data processing facilities" ;;#.(uiop:read-file-string ;; (uiop:subpathname *load-pathname* "README.md"))) - ;;:in-order-to ((test-op (test-op "scopes/test")))) + :in-order-to ((test-op (test-op "scopes/test")))) +(defsystem :scopes/test + :depends-on (:scopes) + :components ((:file "test/test-storage") + (:file "test/test-forge")) + :perform (test-op (o c) + (funcall #'scopes/test-storage:run-all) + (funcall #'scopes/test-forge:run)))