core.t (PDL-2.080) | : | core.t (PDL-2.081) | ||
---|---|---|---|---|
skipping to change at line 44 | skipping to change at line 44 | |||
[ | [ | |||
[0 1 2 0 1 2] | [0 1 2 0 1 2] | |||
[3 4 5 3 4 5] | [3 4 5 3 4 5] | |||
[0 1 2 0 1 2] | [0 1 2 0 1 2] | |||
[3 4 5 3 4 5] | [3 4 5 3 4 5] | |||
[0 1 2 0 1 2] | [0 1 2 0 1 2] | |||
[3 4 5 3 4 5] | [3 4 5 3 4 5] | |||
] | ] | |||
', 'dupN'; | ', 'dupN'; | |||
is sequence(3,2)->inflateN(2, 3).'', ' | ||||
[ | ||||
[0 0 1 1 2 2] | ||||
[0 0 1 1 2 2] | ||||
[0 0 1 1 2 2] | ||||
[3 3 4 4 5 5] | ||||
[3 3 4 4 5 5] | ||||
[3 3 4 4 5 5] | ||||
] | ||||
', 'inflateN'; | ||||
my $a_long = sequence long, 10; | my $a_long = sequence long, 10; | |||
my $a_dbl = sequence 10; | my $a_dbl = sequence 10; | |||
my $b_long = $a_long->slice('5'); | my $b_long = $a_long->slice('5'); | |||
my $b_dbl = $a_dbl->slice('5'); | my $b_dbl = $a_dbl->slice('5'); | |||
my $c_long = $a_long->slice('4:7'); | my $c_long = $a_long->slice('4:7'); | |||
my $c_dbl = $a_dbl->slice('4:7'); | my $c_dbl = $a_dbl->slice('4:7'); | |||
# test 'sclr' method | # test 'sclr' method | |||
End of changes. 1 change blocks. | ||||
0 lines changed or deleted | 11 lines changed or added |