1#!perl 2 3use strict; 4use warnings; 5 6use Math::Matrix; 7use Test::More tests => 2; 8 9my @args = 10 ( 11 [1, 2, 3], 12 [4, 5, 6], 13 [], 14 [[ 7, 8, 9], 15 [10, 11, 12]], 16 ); 17 18my $x = Math::Matrix -> new_from_rows(@args); 19is(ref($x), 'Math::Matrix', '$x is a Math::Matrix'); 20is_deeply([ @$x ], [[ 1, 2, 3], 21 [ 4, 5, 6], 22 [ 7, 8, 9], 23 [10, 11, 12]], '$x has the right values'); 24