niceslice.t (PDL-2.077) | : | niceslice.t (PDL-2.078) | ||
---|---|---|---|---|
skipping to change at line 157 | skipping to change at line 157 | |||
translate_and_run <<'EOF'; | translate_and_run <<'EOF'; | |||
sub f { | sub f { | |||
my ($pa, $pb) = @_; | my ($pa, $pb) = @_; | |||
$pa <<= 2; | $pa <<= 2; | |||
$pb >>= 1; | $pb >>= 1; | |||
} | } | |||
EOF | EOF | |||
pass '<<= followed by >>= not blow up NiceSlice'; | pass '<<= followed by >>= not blow up NiceSlice'; | |||
translate_and_run <<'EOF'; | ||||
$pb = $pa << 1; | ||||
$pb += $pa(0); | ||||
EOF | ||||
pass '<< followed by 1 then blank'; | ||||
# | # | |||
# todo ones | # todo ones | |||
# | # | |||
# whitespace tolerance | # whitespace tolerance | |||
$pa= sequence 10; | $pa= sequence 10; | |||
translate_and_run '$c = $pa (0)'; | translate_and_run '$c = $pa (0)'; | |||
is($c, $pa->at(0)); | is($c, $pa->at(0)); | |||
End of changes. 1 change blocks. | ||||
0 lines changed or deleted | 7 lines changed or added |