diff options
author | Aryadev Chavali <aryadev@aryadevchavali.com> | 2025-02-22 23:04:20 +0000 |
---|---|---|
committer | Aryadev Chavali <aryadev@aryadevchavali.com> | 2025-02-22 23:06:52 +0000 |
commit | ee2234e9bbb69fe06cdc241eb1fac75bafa15fda (patch) | |
tree | 459449abb5ef618ea3b3c41a3f26f31e4a28123e /tests | |
parent | dc622d8f44538f64f9006ab65f1537d7c7499007 (diff) | |
download | cantedraw-ee2234e9bbb69fe06cdc241eb1fac75bafa15fda.tar.gz cantedraw-ee2234e9bbb69fe06cdc241eb1fac75bafa15fda.tar.bz2 cantedraw-ee2234e9bbb69fe06cdc241eb1fac75bafa15fda.zip |
Put dependencies for each test rather than on the suite.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/functions.lisp | 7 | ||||
-rw-r--r-- | tests/model.lisp | 7 |
2 files changed, 7 insertions, 7 deletions
diff --git a/tests/functions.lisp b/tests/functions.lisp index ac8599d..11d8f6e 100644 --- a/tests/functions.lisp +++ b/tests/functions.lisp @@ -20,8 +20,7 @@ (in-package :cantedraw/tests/functions) -(define-test function-test - :depends-on ((cantedraw/tests/macros macro-test))) +(define-test function-test) (define-test (function-test "parse-integer*") :compile-at :execute @@ -41,6 +40,7 @@ (is equal '(-3 -2 -1 0) (range -3 1))) (define-test (function-test take) + :depends-on ((cantedraw/tests/macros ->>)) :compile-at :execute (fail (take nil nil)) (fail (take 100 nil)) @@ -65,7 +65,8 @@ (string= " World"))) (define-test (function-test rev-map) - :depends-on (range) + :depends-on (range + (cantedraw/tests/macros ->>)) :compile-at :execute (fail (rev-map nil nil)) (fail (rev-map "a string" "another string" :key-eq "not a function")) diff --git a/tests/model.lisp b/tests/model.lisp index 0fd8be4..32933ba 100644 --- a/tests/model.lisp +++ b/tests/model.lisp @@ -17,16 +17,15 @@ (:use :cl :parachute :cantedraw.lib.macros :cantedraw.lib.functions - :cantedraw/tests/functions :cantedraw.model)) (in-package :cantedraw/tests/model) -(define-test model-test - :depends-on ((cantedraw/tests/macros macro-test) - (cantedraw/tests/functions function-test))) +(define-test model-test) (define-test (model-test int->suit) + :depends-on ((cantedraw/tests/macros ->>) + (cantedraw/tests/functions rev-map)) :compile-at :execute (fail (int->suit nil)) (fail (int->suit "Not a number")) |