This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
array.t: Tests for #7508 and #109726
authorFather Chrysostomos <sprout@cpan.org>
Wed, 21 Aug 2013 05:26:34 +0000 (22:26 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 21 Aug 2013 05:26:34 +0000 (22:26 -0700)
t/op/array.t

index 86740a1..e30dceb 100644 (file)
@@ -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";