dslinux/user/perl/lib/Tie/Array push.t splice.t std.t stdpush.t
cayenne
dslinux_cayenne at user.in-berlin.de
Mon Dec 4 18:01:14 CET 2006
Update of /cvsroot/dslinux/dslinux/user/perl/lib/Tie/Array
In directory antilope:/tmp/cvs-serv17422/lib/Tie/Array
Added Files:
push.t splice.t std.t stdpush.t
Log Message:
Adding fresh perl source to HEAD to branch from
--- NEW FILE: stdpush.t ---
#!./perl
BEGIN {
chdir 't' if -d 't';
@INC = '.';
push @INC, '../lib';
}
use Tie::Array;
tie @x,Tie::StdArray;
require "op/push.t"
--- NEW FILE: 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"
--- NEW FILE: std.t ---
#!./perl
BEGIN {
chdir 't' if -d 't';
@INC = '.';
push @INC, '../lib';
}
use Tie::Array;
tie @foo,Tie::StdArray;
tie @ary,Tie::StdArray;
tie @bar,Tie::StdArray;
require "op/array.t"
--- NEW FILE: splice.t ---
#!./perl
BEGIN {
chdir 't' if -d 't';
@INC = '.';
push @INC, '../lib';
}
# bug id 20001020.002
# -dlc 20001021
use Tie::Array;
tie @a,Tie::StdArray;
undef *Tie::StdArray::SPLICE;
require "op/splice.t"
# Pre-fix, this failed tests 6-9
More information about the dslinux-commit
mailing list