[p5sagit/p5-mst-13.2.git] / t / lib / tie-push.t

#!./perl

BEGIN {
    chdir 't' if -d 't';
    @INC = '.'; 
    push @INC, '../lib';
}    

{
 package Basic;
 use Tie::Array;
 @ISA = qw(Tie::Array);

 sub TIEARRAY  { return bless [], shift }
 sub FETCH     { $_[0]->[$_[1]] }
 sub STORE     { $_[0]->[$_[1]] = $_[2] }
 sub FETCHSIZE { scalar(@{$_[0]}) }
 sub STORESIZE { $#{$_[0]} = $_[1]-1 }
}

tie @x,Basic;
tie @get,Basic;
tie @got,Basic;
tie @tests,Basic;
require "op/push.t"
Commit	Line	Data
a60c0954	1	#!./perl
	2
	3	BEGIN {
	4	chdir 't' if -d 't';
22d4bb9c	5	@INC = '.';
22d4bb9c	6	push @INC, '../lib';
a60c0954	7	}
	8
	9	{
	10	package Basic;
	11	use Tie::Array;
	12	@ISA = qw(Tie::Array);
	13
	14	sub TIEARRAY { return bless [], shift }
	15	sub FETCH { $_[0]->[$_[1]] }
	16	sub STORE { $_[0]->[$_[1]] = $_[2] }
	17	sub FETCHSIZE { scalar(@{$_[0]}) }
	18	sub STORESIZE { $#{$_[0]} = $_[1]-1 }
	19	}
	20
	21	tie @x,Basic;
	22	tie @get,Basic;
	23	tie @got,Basic;
	24	tie @tests,Basic;
93430cb4	25	require "op/push.t"