Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
tree: 07f3abfb2d
Fetching contributors…

Cannot retrieve contributors at this time

21 lines (19 sloc) 0.568 kb
use Test::More tests => 3;
use File::Spec;
use lib File::Spec->catfile("..","lib");
use Math::MatrixReal;
do 'funcs.pl';
my ($a,$b);
eval { $a = Math::MatrixReal->new_from_cols([[ 1.41e-05, 6.82E-06, 3.18e-06 ]]) };
if ($@){
ok(0, 'new_from_cols scientific notation fails');
} else {
ok(1, 'new_from_cols scientific notation works');
}
eval { $b = Math::MatrixReal->new_from_rows([[ 1.41e-05, 6.82E-06, 3.18e-06 ]]) };
if ($@){
ok(0, 'new_from_rows scientific notation fails');
} else {
ok(1, 'new_from_rows scientific notation works');
}
ok(similar( $a, ~$b) );
Jump to Line
Something went wrong with that request. Please try again.