diff options
| -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")) |