1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
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) );
|
