use PDL::LiteF;

$|=1;

#  PDL::Core::set_debugging(1);
kill INT,$$  if $ENV{UNDER_DEBUGGER}; # Useful for debugging.

sub ok {
	my $no = shift ;
	my $result = shift ;
	print "not " unless $result ;
	print "ok $no\n" ;
}

sub pok { print "ok $_[0]\n" }

print "1..5\n";

$a = zeroes 1,1,1;
if ($a) { print "not " }
pok 1;

$a = ones 3;
eval {print "oops\n" if $a};
print "ERROR WAS: '$@'\n";
ok(2,$@ =~ /multielement/);

unless (all $a) { print "not " };
pok 3;

$a = pdl byte, [ 0, 0, 1 ];
unless (any $a > 0) { print "not " };
pok 4;

$a = ones 3;
$b = $a + 1e-4;
ok(5, all PDL::approx $a, $b, 1e-3);