# Test the error reporting for malformed PDL::PP code.
use Test::More tests => 3;
# Load up PDL::PP
use PDL::PP qw(foo::bar foo::bar foobar);
# Prevent file generation (does not prevent calling of functions)
$PDL::PP::done = 1;
# Check the loop malformed call:
eval {
pp_def(test1 =>
Pars => 'a(n)',
Code => q{
loop %{
$a()++;
%}
}
);
};
my $err_msg = $@;
isnt($@, undef, 'loop without dim name should throw an error');
like($@, qr/Expected.*loop.*%\{/, 'loop without dim name should explain the error')
or diag("Got this error: $@");
TODO: {
local $TODO = 'Have not figured out why @CARP_NOT is not working';
unlike($@, qr/PP\.pm/, 'Should not report error as coming from PDL::PP');
};