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 | |
| 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.
| -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"))  | 
