test-module now loads the module first if necessary
parent
5bfd845b04
commit
0e6562013a
|
@ -75,7 +75,9 @@ M: module-link module-name module-link-name ;
|
||||||
[ module-files* run-files ] keep
|
[ module-files* run-files ] keep
|
||||||
modules get push ;
|
modules get push ;
|
||||||
|
|
||||||
: test-module ( name -- ) module module-tests* run-tests ;
|
: test-module ( name -- )
|
||||||
|
dup require
|
||||||
|
module module-tests* run-tests ;
|
||||||
|
|
||||||
: test-modules ( -- )
|
: test-modules ( -- )
|
||||||
modules get [ module-tests* ] map concat run-tests ;
|
modules get [ module-tests* ] map concat run-tests ;
|
||||||
|
|
Loading…
Reference in New Issue