This module performs generative testing on Raku functions.
Install with:
zef install Test::Fuzz
use Test::Fuzz;
sub bla(Int $bla, Int $ble --> UInt) is fuzzed {
$bla + $ble
}
sub ble(Int $ble) is fuzzed {
die "it is prime!" if $ble.is-prime
}
sub bli(Str :$bli) is fuzzed {
die "it's too long" unless $bli.chars < 10
}
sub blo("test") is fuzzed {
"ok"
}
sub blu(Str $blu) {
"ok";
}
fuzz &blu;
multi MAIN(Bool :$fuzz!) {
run-tests
}
Test::Fuzz is a tool for fuzzing or generative/fuzz testing.
Add the is fuzzed trait to a method or function and Test::Fuzz will try to figure out the best generators to use to test your function. If the function was already created without this trait, pass it to the fuzz function for the same effect.
To run the tests, just call the run-tests function.
# with zef
> zef install Test::Fuzz
# or, with 6pm (https://github.com/FCO/6pm)
> $ 6pm install Test::Fuzz
multisubtrait_mod:<is>(
Routine$func,
:$fuzzed! (Any:$returns, :&test) where { ... }
) returnsMutrait is fuzzed can receive params :returns and :test
multisubtrait_mod:<is>(
Routine$func,
Bool:$fuzzed!
) returnsMutrait is fuzzed
subfuzz(
&func
) returnsMufuzz an existing sub
subrun-tests(
@funcs=Code.new,
Int:$runs
) returnsNilfunction that run fuzzed tests
if no specified the functions, it runs all fuzzed tests