use Test::Spec;
require Test::NoWarnings;
use Exception::Class 'MockErr';
use syntax 'try';
# TODO fix this and enable tests
xdescribe "subroutine aguments" => sub {
they "are accessible inside try/catch/finally blocks" => sub {
sub test_sub {
is_deeply(\@_, [qw/ a b c d e /]);
try {
is_deeply(\@_, [qw/ a b c d e /]);
is(pop, 'e');
MockErr->throw('aa');
}
catch (MockErr $err) {
is_deeply(\@_, [qw/ a b c d /]);
is(shift, 'a');
}
finally {
is_deeply(\@_, [qw/ b c d /]);
$_->[1] = 'CC';
}
is_deeply(\@_, [qw/ b CC d /]);
}
test_sub(qw/ a b c d e /);
}
};
it "has no warnings" => sub {
Test::NoWarnings::had_no_warnings();
};
runtests;