This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
3ac2191
)
fix splice+isa test that got mangled when making splice.t use test.pl
author
Tobias Leich
<email@froggs.de>
Sat, 18 Jan 2014 19:53:45 +0000
(20:53 +0100)
committer
James E Keenan
<jkeenan@cpan.org>
Sun, 19 Jan 2014 23:48:08 +0000
(
00:48
+0100)
See
ce6d40e02d52b9152b44a5fc2180efda15a7d069
t/op/splice.t
patch
|
blob
|
blame
|
history
diff --git
a/t/op/splice.t
b/t/op/splice.t
index
45cd7f8
..
dde11f5
100644
(file)
--- a/
t/op/splice.t
+++ b/
t/op/splice.t
@@
-86,7
+86,7
@@
is( j(@a), j(1,2,2), 'duplicate middle element on the end');
ok( ! Foo->isa('Bar'), 'Foo is not a Bar');
splice @Foo::ISA, 0, 0, 'Bar';
-ok(
!
oo->isa('Bar'), 'splice @ISA and make Foo a Bar');
+ok(
F
oo->isa('Bar'), 'splice @ISA and make Foo a Bar');
# Test undef first arg
eval { no warnings 'experimental';splice( $new_arrayref, 0, 0, 1, 2, 3 ) };