Change 14961 by ams@lustre on 2002/03/03 13:39:09
Subject: Re: PATCH (bleadperl): Quieter handling of tied arrays
From: Mark-Jason Dominus <[EMAIL PROTECTED]>
Date: Sun, 03 Mar 2002 09:32:16 -0500
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/t/op/tiearray.t#5 edit
Differences ...
==== //depot/perl/t/op/tiearray.t#5 (xtext) ====
Index: perl/t/op/tiearray.t
--- perl/t/op/tiearray.t.~1~ Sun Mar 3 06:45:05 2002
+++ perl/t/op/tiearray.t Sun Mar 3 06:45:05 2002
@@ -101,7 +101,7 @@
package main;
-print "1..31\n";
+print "1..35\n";
my $test = 1;
{my @ary;
@@ -187,6 +187,7 @@
@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 @@
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";
End of Patch.
