Permalink
Switch branches/tags
Find file
Fetching contributors…
Cannot retrieve contributors at this time
12 lines (8 sloc) 272 Bytes
use Test::More tests => 1;
use File::Spec;
use lib File::Spec->catfile("..","lib");
use Math::MatrixReal;
do 'funcs.pl';
$matrix = new Math::MatrixReal (10,10);
$matrix->one();
ok( $matrix->condition($matrix->inverse) - 1 < 1e-6, 'identity has condition number = 1' );