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
multi sub trait_mod:<is>(
Routine $func,
:$fuzzed! (Any :$returns, :&test) where { ... }
) returns Mutrait is fuzzed can receive params :returns and :test
multi sub trait_mod:<is>(
Routine $func,
Bool :$fuzzed!
) returns Mutrait is fuzzed
sub fuzz(
&func
) returns Mufuzz an existing sub
sub run-tests(
@funcs = Code.new,
Int :$runs
) returns Nilfunction that run fuzzed tests
if no specified the functions, it runs all fuzzed tests