From: Mark-Jason Dominus <mjd@plover.com>
Date: Sun, 3 Mar 2002 09:32:16 +0000 (-0500)
Subject: Re: PATCH (bleadperl): Quieter handling of tied arrays
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8c2040069d8b319e6bc1081d9acb663977b2bc8f;p=p5sagit%2Fp5-mst-13.2.git

Re: PATCH (bleadperl): Quieter handling of tied arrays
   Message-Id: <20020303143216.10536.qmail@plover.com>

p4raw-id: //depot/perl@14961
---

diff --git a/t/op/tiearray.t b/t/op/tiearray.t
index 8e78b2f..3d0004b 100755
--- a/t/op/tiearray.t
+++ b/t/op/tiearray.t
@@ -101,7 +101,7 @@ sub SPLICE
 
 package main;
 
-print "1..31\n";                   
+print "1..35\n";                   
 my $test = 1;
 
 {my @ary;
@@ -187,6 +187,7 @@ print "ok ", $test++,"\n";
 @ary = split(/:/,'1:2:3');
 print "not " unless join(':',@ary) eq '1:2:3';
 print "ok ", $test++,"\n";         
+
   
 my $t = 0;
 foreach $n (@ary)
@@ -195,6 +196,25 @@ foreach $n (@ary)
   print "ok ", $test++,"\n";         
  }
 
+# (30-33) 20020303 MJD
+@ary = ();
+$seen{POP} = 0;
+pop @ary;                       # this didn't used to call POP at all
+print "not " unless $seen{POP} == 1;
+print "ok ", $test++,"\n";         
+$seen{SHIFT} = 0;
+shift @ary;                     # this didn't used to call SHIFT at  all
+print "not " unless $seen{SHIFT} == 1;
+print "ok ", $test++,"\n";         
+$seen{PUSH} = 0;
+push @ary;                       # this didn't used to call PUSH at all
+print "not " unless $seen{PUSH} == 1;
+print "ok ", $test++,"\n";         
+$seen{UNSHIFT} = 0;
+unshift @ary;                   # this didn't used to call UNSHIFT at all
+print "not " unless $seen{UNSHIFT} == 1;
+print "ok ", $test++,"\n";         
+
 @ary = qw(3 2 1);
 print "not " unless join(':',@ary) eq '3:2:1';
 print "ok ", $test++,"\n";