1use Test::More tests => 2; 2use File::Spec; 3use lib File::Spec->catfile("..","lib"); 4use Math::MatrixReal; 5 6do 'funcs.pl'; 7 8my $a = Math::MatrixReal->new_from_rows([ [1, 2], [-2, 1] ] ); 9my $b = Math::MatrixReal->new_from_rows([ [1, 2], [3, 1] ] ); 10 11ok( $a->is_normal , 'is_normal'); 12ok( !$b->is_normal , 'is_normal'); 13 14