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