aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAryadev Chavali <aryadev@aryadevchavali.com>2025-02-22 23:04:20 +0000
committerAryadev Chavali <aryadev@aryadevchavali.com>2025-02-22 23:06:52 +0000
commitee2234e9bbb69fe06cdc241eb1fac75bafa15fda (patch)
tree459449abb5ef618ea3b3c41a3f26f31e4a28123e
parentdc622d8f44538f64f9006ab65f1537d7c7499007 (diff)
downloadcantedraw-ee2234e9bbb69fe06cdc241eb1fac75bafa15fda.tar.gz
cantedraw-ee2234e9bbb69fe06cdc241eb1fac75bafa15fda.tar.bz2
cantedraw-ee2234e9bbb69fe06cdc241eb1fac75bafa15fda.zip
Put dependencies for each test rather than on the suite.
-rw-r--r--tests/functions.lisp7
-rw-r--r--tests/model.lisp7
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"))