possible-long-unit-tests ( vocab nanos -- )


Vocabulary
tools.test.private

Inputs
vocaban object
nanosan object


Outputs
None

Definition
USING: io kernel math namespaces prettyprint tools.test vocabs ;

IN: tools.test.private

: possible-long-unit-tests ( vocab nanos -- )
long-unit-tests-threshold get [
dupd > long-unit-tests-enabled? get not and [
swap "Warning: possible long unit test for " write
vocab-name write " - " write 1000000000 /f pprint
" seconds" print
] [ 2drop ] if
] [ 2drop ] if* ;