From 8c2040069d8b319e6bc1081d9acb663977b2bc8f Mon Sep 17 00:00:00 2001 From: Mark-Jason Dominus Date: Sun, 3 Mar 2002 04:32:16 -0500 Subject: [PATCH] Re: PATCH (bleadperl): Quieter handling of tied arrays Message-Id: <20020303143216.10536.qmail@plover.com> p4raw-id: //depot/perl@14961 --- t/op/tiearray.t | 22 +++++++++++++++++++++- 1 file changed, 21 insertions(+), 1 deletion(-) 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"; -- 2.7.4