24 lines
1.4 KiB
Plaintext
24 lines
1.4 KiB
Plaintext
|
IN: test
|
||
|
|
USING: help kernel ;
|
||
|
|
|
||
|
|
HELP: benchmark
|
||
|
|
{ $values { "quot" "a quotation" } { "gctime" "an integer denoting milliseconds" } { "runtime" "an integer denoting milliseconds" } }
|
||
|
|
{ $description "Runs a quotation, measuring the total wall clock time and the total time spent in the garbage collector." }
|
||
|
|
{ $notes "A nicer word for interactive use is " { $link time } "." } ;
|
||
|
|
|
||
|
|
HELP: time
|
||
|
|
{ $values { "quot" "a quotation" } }
|
||
|
|
{ $description "Runs a quotation and then prints the total run time and time spent in the garbage collector." }
|
||
|
|
{ $examples
|
||
|
|
{ $example "[ 1000000 0 [ + ] reduce drop ] time" "1116 ms run / 6 ms GC time" }
|
||
|
|
} ;
|
||
|
|
|
||
|
|
HELP: unit-test
|
||
|
|
{ $values { "output" "a sequence of expected stack elements" } { "input" "a quotation run with an empty stack" } }
|
||
|
|
{ $description "Runs a quotation with an empty stack, comparing the resulting stack with " { $snippet "output" } ". Elements are compared using " { $link = } ". Throws an error if the expected stack does not match the resulting stack." } ;
|
||
|
|
|
||
|
|
HELP: unit-test-fails
|
||
|
|
{ $values { "quot" "a quotation run with an empty stack" } }
|
||
|
|
{ $description "Runs a quotation with an empty stack, expecting it to throw an error. If the quotation throws an error, this word returns normally. If the quotation does not throw an error, this word " { $emphasis "does" } " raise an error." }
|
||
|
|
{ $notes "This word is used to test boundary conditions and fail-fast behavior." } ;
|