diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2016-07-29 08:38:11 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2016-07-29 08:38:56 -0700 |
| commit | ee95e30c64b700db346148e4c9bcd140e30ec272 (patch) | |
| tree | 8b060fadb5ca4636560729134200f123da049617 /t/op/splice.t | |
| parent | 2c34ec1b60eadacbf29fae442ed08c82ee42863b (diff) | |
| download | perl-ee95e30c64b700db346148e4c9bcd140e30ec272.tar.gz | |
Tired of looking up old bug numbers
Some of this is ugly, but that’s because I wrote a one-liner to do
it. It’s good enough for practical purposes.
Diffstat (limited to 't/op/splice.t')
| -rw-r--r-- | t/op/splice.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/splice.t b/t/op/splice.t index c0af5d397b..e61f732658 100644 --- a/t/op/splice.t +++ b/t/op/splice.t @@ -39,12 +39,12 @@ is( j(@a), j(1,7,7,3), '... array 1,7,7,3'); is( j(splice(@a,-3,-2,2)), j(7), 'replace first 7 with a 2, negative offset, negative length, return value is 7'); is( j(@a), j(1,2,7,3), '... array has 1,2,7,3'); -# Bug 20000223.001 - no test for splice(@array). Destructive test! +# Bug 20000223.001 (#2196) - no test for splice(@array). Destructive test! is( j(splice(@a)), j(1,2,7,3), 'bare splice empties the array, return value is the array'); is( j(@a), '', 'array is empty'); # Tests 11 and 12: -# [ID 20010711.005] in Tie::Array, SPLICE ignores context, breaking SHIFT +# [ID 20010711.005 (#7265)] in Tie::Array, SPLICE ignores context, breaking SHIFT my $foo; |