use PDL::LiteF;
use Test;
BEGIN {
plan tests => 2;
}
use PDL::Matrix;
my $m = mpdl([[1,2,1],[2,0,3],[1,1,1]]); # matrix with determinant 1
my $tol = $^O =~ /win32/i ? 1e-6 : 1e-15;
print "determinant: ",$m->det,"\n";
ok abs($m->det - 1) < $tol ;
ok abs($m->determinant - 1) < 1e-15;