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