Make splice invoke set magic

1 files changed, 11 insertions, 1 deletions

diff --git a/t/op/splice.t b/t/op/splice.t
index 1ffcb498a7..93718a15cb 100644
--- a/t/op/splice.t
+++ b/t/op/splice.t
@@ -1,6 +1,6 @@
 #!./perl
 
-print "1..18\n";
+print "1..20\n";
 
 @a = (1..10);
 
@@ -82,3 +82,13 @@ print "ok 17\n";
 splice( @a, 1, 2, $a[1], $a[1] );
 print "not " unless j(@a) eq j(1,2,2);
 print "ok 18\n";
+
+# splice should invoke get magic
+
+print "not " if Foo->isa('Bar');
+print "ok 19\n";
+
+splice @Foo::ISA, 0, 0, 'Bar';
+
+print "not " if !Foo->isa('Bar');
+print "ok 20\n";