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 |