SYNOPSIS

     use Gen::Test::Rinci::FuncResult qw(gen_test_func);
     use Test::More;
    
     sub divide {
         my %args = @_;
         my ($a, $b) = ($args{a}, $args{b});
         return [500, "undefined"] if $a == 0 && $b == 0;
         [200, "OK", $a/$b];
     }
    
     gen_test_func(name => 'test_divide', func => \&divide);
    
     test_divide(args=>{a=>6, b=>3}, result=>2);
     test_divide(args=>{a=>6, b=>0}, dies=>1);
     test_divide(args=>{a=>0, b=>0}, status=>500);
     done_testing;

DESCRIPTION

FAQ

SEE ALSO

    Rinci