Put dependencies for each test rather than on the suite.

This commit is contained in:
2025-02-22 23:04:20 +00:00
parent dc622d8f44
commit ee2234e9bb
2 changed files with 7 additions and 7 deletions

View File

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

View File

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