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