Permalink
Browse files

another decompose_LR test

  • Loading branch information...
1 parent aadc6e3 commit 7e4bfdd477c5eb567c6b5d008170da0ff4a22bc6 leto committed Apr 20, 2008
Showing with 4 additions and 2 deletions.
  1. +4 −2 t/decompose_LR.t
View
@@ -1,4 +1,4 @@
-use Test::More tests => 1;
+use Test::More tests => 2;
use File::Spec;
use lib File::Spec->catfile("..","lib");
use Math::Complex;
@@ -10,7 +10,9 @@ do 'funcs.pl';
{
my $a = Math::MatrixReal->new_from_rows([ [ 2 ] ] );
- ok_matrix( $a->decompose_LR->invert_LR, $a->inverse, q{decompose_LR works for 1x1 matrices} );
+ ok_matrix( $a->decompose_LR->invert_LR, $a->inverse, q{decompose_LR->invert_LR = inverse for 1x1 matrices} );
+ ok_matrix( $a->new_from_rows( [[ 1/2 ]]) , $a->inverse, q{decompose_LR works for 1x1 matrices} );
+
}

0 comments on commit 7e4bfdd

Please sign in to comment.