dslinux/user/perl/lib/Filter/Simple/t data.t export.t filter.t filter_only.t import.t
cayenne
dslinux_cayenne at user.in-berlin.de
Tue Dec 5 05:27:09 CET 2006
Update of /cvsroot/dslinux/dslinux/user/perl/lib/Filter/Simple/t
In directory antilope:/tmp/cvs-serv7729/lib/Filter/Simple/t
Added Files:
data.t export.t filter.t filter_only.t import.t
Log Message:
Adding fresh perl source to HEAD to branch from
--- NEW FILE: filter.t ---
BEGIN {
if( $ENV{PERL_CORE} ) {
chdir 't';
@INC = ('../lib', 'lib');
}
else {
unshift @INC, 't/lib/';
}
}
chdir 't';
use Filter::Simple::FilterTest qr/not ok/ => "ok", fail => "ok";
print "1..6\n";
sub fail { print "fail ", $_[0], "\n" }
print "not ok 1\n";
print "fail 2\n";
fail(3);
&fail(4);
print "not " unless "whatnot okapi" eq "whatokapi";
print "ok 5\n";
no Filter::Simple::FilterTest;
print "not " unless "not ok" =~ /^not /;
print "ok 6\n";
--- NEW FILE: export.t ---
BEGIN {
if( $ENV{PERL_CORE} ) {
chdir 't';
@INC = ('../lib', 'lib');
}
else {
unshift @INC, 't/lib/';
}
}
chdir 't';
BEGIN { print "1..1\n" }
use Filter::Simple::ExportTest 'ok';
notok 1;
--- NEW FILE: filter_only.t ---
BEGIN {
if( $ENV{PERL_CORE} ) {
chdir 't';
@INC = ('../lib', 'lib');
}
else {
unshift @INC, 't/lib/';
}
}
chdir 't';
use Filter::Simple::FilterOnlyTest qr/not ok/ => "ok",
"bad" => "ok", fail => "die";
print "1..9\n";
sub fail { print "ok ", $_[0], "\n" }
sub ok { print "ok ", $_[0], "\n" }
print "not ok 1\n";
print "bad 2\n";
fail(3);
&fail(4);
print "not " unless "whatnot okapi" eq "whatokapi";
print "ok 5\n";
ok 7 unless not ok 6;
no Filter::Simple::FilterOnlyTest; # THE FUN STOPS HERE
print "not " unless "not ok" =~ /^not /;
print "ok 8\n";
print "not " unless "bad" =~ /bad/;
print "ok 9\n";
--- NEW FILE: import.t ---
BEGIN {
if( $ENV{PERL_CORE} ) {
chdir 't';
@INC = ('../lib', 'lib');
}
else {
unshift @INC, 't/lib';
}
}
chdir 't';
BEGIN { print "1..4\n" }
use lib 'lib';
use Filter::Simple::ImportTest (1..3);
say "not ok 4\n";
--- NEW FILE: data.t ---
BEGIN {
if( $ENV{PERL_CORE} ) {
chdir 't';
@INC = ('../lib', 'lib');
}
else {
unshift @INC, 't/lib/';
}
}
chdir 't';
use Filter::Simple::FilterOnlyTest qr/ok/ => "not ok", "bad" => "ok";
print "1..6\n";
print "bad 1\n";
print "bad 2\n";
print "bad 3\n";
print <DATA>;
__DATA__
ok 4
ok 5
ok 6
More information about the dslinux-commit
mailing list