view release on metacpan or  search on metacpan

t/Devel-WantXS.t  view on Meta::CPAN

    [ 1,        1,         0,        '--xs'],
    [ 0,        1,         1],
    [ 0,        1,         1,        '--pp'],
    [ 1,        1,         1,        '--xs'],
);

for (@data) {
    my ($expected, $perl_only, $args, $argv) = @$_;
    local $Devel::WantXS::_CACHE;
    local $ENV{PERL_ONLY} = $perl_only;
    local @ARGV;
    push @ARGV, $argv if $argv;

    is(want_xs($args) || 0, $expected);
}

done_testing;