Permalink
Switch branches/tags
Find file
Fetching contributors…
Cannot retrieve contributors at this time
15 lines (11 sloc) 441 Bytes
use Test::More tests => 2;
use File::Spec;
use lib File::Spec->catfile("..","lib");
use Math::MatrixReal;
do 'funcs.pl';
my $vec = Math::MatrixReal->new_from_rows([ [ 1, 2, 3 ] ]);
my $len = (~$vec)->length;
ok( similar($len, sqrt(14)), 'length works for row vector, len=' . $len );
$vec = Math::MatrixReal->new_from_cols([ [ 1, 2, 3 ] ]);
$len = ($vec)->length;
ok( similar($len, sqrt(14)), 'length works for col vector, len=' . $len );