use
Test::Exception;
use
PDL::LiteF;
use
strict;
use
warnings;
# PDL::Core::set_debugging(1);
kill
'INT'
,$$
if
$ENV
{UNDER_DEBUGGER};
# Useful for debugging.
{
my
$pa
= zeroes 1,1,1;
ok !
$pa
,
'single-element multi-dim ndarray collapses'
;
}
{
my
$pa
= ones 3;
throws_ok {
"oops\n"
if
$pa
}
qr/multielement/
,
'multielement ndarray in conditional expression'
;
ok all
$pa
,
'all elements true'
;
}
{
my
$pa
= pdl byte, [ 0, 0, 1 ];
ok any(
$pa
> 0),
'any element true'
;
}
{
my
$pa
= ones 3;
my
$pb
=
$pa
+ 1e-4;
ok all(PDL::approx(
$pa
,
$pb
, 1e-3)),
'approx'
;
}