add TODO tests for slow our() declaration

Subject: Re: [perl #17376] Bug Report - our(%)
Message-ID: <JNri9gzkgSBB092yn@efn.org>

p4raw-id: //depot/perl@17921

1 files changed, 49 insertions, 0 deletions

diff --git a/t/comp/our.t b/t/comp/our.t
new file mode 100644
index 0000000000..c381c413ff
--- /dev/null
+++ b/t/comp/our.t
@@ -0,0 +1,49 @@
+#!./perl
+
+BEGIN {
+    chdir 't';
+    @INC = '../lib';
+    require './test.pl';
+}
+
+print "1..6\n";
+
+{
+    package TieAll;
+    # tie, track, and report what calls are made
+    my @calls;
+    sub AUTOLOAD {
+        for ($AUTOLOAD =~ /TieAll::(.*)/) {
+            if (/TIE/) { return bless {} }
+            elsif (/calls/) { return join ',', splice @calls }
+            else {
+               push @calls, $_;
+	       # FETCHSIZE doesn't like undef
+	       # if FIRSTKEY, see if NEXTKEY is also called
+               return 1 if /FETCHSIZE|FIRSTKEY/;
+               return;
+            }
+        }
+    }
+}
+
+tie $x, 'TieAll';
+tie @x, 'TieAll';
+tie %x, 'TieAll';
+
+{our $x;}
+is(TieAll->calls, '', 'our $x has no runtime effect');
+{our ($x);}
+is(TieAll->calls, '', 'our ($x) has no runtime effect');
+{our %x;}
+is(TieAll->calls, '', 'our %x has no runtime effect');
+
+{
+    local $TODO = 'perl #17376';
+    {our (%x);}
+    is(TieAll->calls, '', 'our (%x) has no runtime effect');
+    {our @x;}
+    is(TieAll->calls, '', 'our @x has no runtime effect');
+    {our (@x);}
+    is(TieAll->calls, '', 'our (@x) has no runtime effect');
+}