provide test systems for scopes and scopes/forge, use with: (asdf:test-system :scopes)

This commit is contained in:
Helmut Merz 2024-05-27 09:12:17 +02:00
parent 2d99e846ec
commit 527f5b4884
2 changed files with 18 additions and 7 deletions

View file

@ -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)))

View file

@ -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)))