array.t: Tests for #7508 and #109726

1 files changed, 8 insertions, 1 deletions

diff --git a/t/op/array.t b/t/op/array.t
index 86740a1cea..e30dcebb73 100644
--- a/t/op/array.t
+++ b/t/op/array.t
@@ -6,7 +6,7 @@ BEGIN {
     require 'test.pl';
 }
 
-plan (127);
+plan (129);
 
 #
 # @foo, @bar, and @ary are also used from tie-stdarray after tie-ing them
@@ -466,5 +466,12 @@ package peen {
 	'arylen_p magic does not stop isa magic from being copied';
 }
 
+# Test that &PL_sv_undef is not special in arrays
+sub {
+    ok exists $_[0],
+      'exists returns true for &PL_sv_undef elem [perl #7508]';
+    is \$_[0], \undef, 'undef preserves identity in array [perl #109726]';
+}->(undef);
+
 
 "We're included by lib/Tie/Array/std.t so we need to return something true";