list.t (Math-MatrixReal-2.12) | : | list.t (Math-MatrixReal-2.13) | ||
---|---|---|---|---|
use Test::More tests => 2; | use Test::More; | |||
use File::Spec; | use File::Spec; | |||
use lib File::Spec->catfile("..","lib"); | use lib File::Spec->catfile("..","lib"); | |||
use Math::MatrixReal; | use Math::MatrixReal; | |||
do 'funcs.pl'; | do 'funcs.pl'; | |||
my $matrix = Math::MatrixReal->new_from_rows([ [1, 2], [3, 4] ]); | my $matrix = Math::MatrixReal->new_from_rows([ [1, 2], [3, 4] ]); | |||
my @list = $matrix->as_list; | my @list = $matrix->as_list; | |||
is scalar(@list), 4, "list contains 4 elements"; | is scalar(@list), 4, "list contains 4 elements"; | |||
is_deeply \@list, [1, 2, 3, 4], | is_deeply \@list, [1, 2, 3, 4], "list contains all elements from initial rows"; | |||
"list contains all elements from initial rows"; | ||||
$matrix = Math::MatrixReal->new_from_rows([ [1, 2, 3], [3, 4, 5] ]); | ||||
@list = $matrix->as_list; | ||||
is scalar(@list), 6, "list contains 6 elements"; | ||||
is_deeply \@list, [1, 2, 3, 3, 4, 5], "list contains all elements from initial r | ||||
ows"; | ||||
done_testing; | ||||
End of changes. 2 change blocks. | ||||
1 lines changed or deleted | 1 lines changed or added |