cco/cl-scopes
3
0
Fork 0
Code Issues 1 Pull requests Releases Wiki Activity Actions

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

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

9
scopes-forge.asd
View file

@ -10,7 +10,10 @@
:components ((:file "forge/forge") :components ((:file "forge/forge")
(:file "testing") (:file "testing")
(:file "test/test-forge" :depends-on ("testing" "forge/forge"))) (:file "test/test-forge" :depends-on ("testing" "forge/forge")))
:long-description "scopes/forge: A Forth-like stack-oriented language") :long-description "scopes/forge: A Forth-like stack-oriented language"
;;:in-order-to ((test-op (test-op "scopes/test_forge")))) :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)))

16
scopes.asd
View file

@ -6,15 +6,23 @@
:version "0.0.1" :version "0.0.1"
:homepage "https://www.cyberconcepts.org" :homepage "https://www.cyberconcepts.org"
:description "" :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") :components ((:file "forge/forge")
(:file "storage/storage") (:file "storage/storage")
(:file "storage/tracking" :depends-on ("storage/storage")) (:file "storage/tracking" :depends-on ("storage/storage"))
(:file "testing") (:file "testing")
(:file "test/test-forge" :depends-on ("testing" "forge/forge")) (:file "test/test-forge" :depends-on ("testing" "forge/forge"))
(:file "test/test-storage" :depends-on ("testing" "storage/storage" "storage/tracking"))) (:file "test/test-storage"
:long-description "scopes: generic data processing facilities") :depends-on ("testing" "storage/storage" "storage/tracking")))
:long-description "scopes: generic data processing facilities"
;;#.(uiop:read-file-string ;;#.(uiop:read-file-string
;; (uiop:subpathname *load-pathname* "README.md"))) ;; (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)))