dslinux/user/perl/t/lib/Test/Simple/sample_tests death.plx death_in_eval.plx exit.plx extras.plx five_fail.plx last_minute_death.plx one_fail.plx pre_plan_death.plx require.plx success.plx too_few.plx too_few_fail.plx two_fail.plx

cayenne dslinux_cayenne at user.in-berlin.de
Mon Dec 4 18:01:54 CET 2006


Update of /cvsroot/dslinux/dslinux/user/perl/t/lib/Test/Simple/sample_tests
In directory antilope:/tmp/cvs-serv17422/t/lib/Test/Simple/sample_tests

Added Files:
	death.plx death_in_eval.plx exit.plx extras.plx five_fail.plx 
	last_minute_death.plx one_fail.plx pre_plan_death.plx 
	require.plx success.plx too_few.plx too_few_fail.plx 
	two_fail.plx 
Log Message:
Adding fresh perl source to HEAD to branch from

--- NEW FILE: last_minute_death.plx ---
require Test::Simple;

push @INC, 't/lib';
require Test::Simple::Catch;
my($out, $err) = Test::Simple::Catch::caught();

Test::Simple->import(tests => 5);
close STDERR;

ok(1);
ok(1);
ok(1);
ok(1);
ok(1);

die "Almost there...";

--- NEW FILE: exit.plx ---
require Test::Builder;

exit 1;

--- NEW FILE: death.plx ---
require Test::Simple;

push @INC, 't/lib';
require Test::Simple::Catch;
my($out, $err) = Test::Simple::Catch::caught();

Test::Simple->import(tests => 5);
close STDERR;

ok(1);
ok(1);
ok(1);
die "Knife?";

--- NEW FILE: success.plx ---
require Test::Simple;

push @INC, 't/lib';
require Test::Simple::Catch;
my($out, $err) = Test::Simple::Catch::caught();

Test::Simple->import(tests => 5);

ok(1);
ok(5, 'yep');
ok(3, 'beer');
ok("wibble", "wibble");
ok(1);

--- NEW FILE: too_few_fail.plx ---
require Test::Simple;

push @INC, 't/lib';
require Test::Simple::Catch;
my($out, $err) = Test::Simple::Catch::caught();

Test::Simple->import(tests => 5);


ok(0);
ok(1);
ok(0);
--- NEW FILE: pre_plan_death.plx ---
# ID 20020716.013, the exit code would become 0 if the test died
# before a plan.

require Test::Simple;

push @INC, 't/lib';
require Test::Simple::Catch;
my($out, $err) = Test::Simple::Catch::caught();

close STDERR;
die "Knife?";

Test::Simple->import(tests => 3);

ok(1);
ok(1);
ok(1);

--- NEW FILE: extras.plx ---
require Test::Simple;

push @INC, 't/lib';
require Test::Simple::Catch;
my($out, $err) = Test::Simple::Catch::caught();

Test::Simple->import(tests => 5);


ok(1);
ok(1);
ok(1);
ok(1);
ok(0);
ok(1);
ok(0);

--- NEW FILE: five_fail.plx ---
require Test::Simple;

use lib 't/lib';
require Test::Simple::Catch;
my($out, $err) = Test::Simple::Catch::caught();

Test::Simple->import(tests => 5);

ok(0);
ok(0);
ok('');
ok(0);
ok(0);

--- NEW FILE: require.plx ---
require Test::Simple;

--- NEW FILE: two_fail.plx ---
require Test::Simple;

push @INC, 't/lib';
require Test::Simple::Catch;
my($out, $err) = Test::Simple::Catch::caught();

Test::Simple->import(tests => 5);


ok(0);
ok(1);
ok(1);
ok(0);
ok(1);

--- NEW FILE: death_in_eval.plx ---
require Test::Simple;
use Carp;

push @INC, 't/lib';
require Test::Simple::Catch;
my($out, $err) = Test::Simple::Catch::caught();

Test::Simple->import(tests => 5);

ok(1);
ok(1);
ok(1);
eval {
        die "Foo";
};
ok(1);
eval "die 'Bar'";
ok(1);

eval {
        croak "Moo";
};

--- NEW FILE: too_few.plx ---
require Test::Simple;

push @INC, 't/lib';
require Test::Simple::Catch;
my($out, $err) = Test::Simple::Catch::caught();

Test::Simple->import(tests => 5);


ok(1);
ok(1);

--- NEW FILE: one_fail.plx ---
require Test::Simple;

push @INC, 't/lib';
require Test::Simple::Catch;
my($out, $err) = Test::Simple::Catch::caught();

Test::Simple->import(tests => 5);


ok(1);
ok(2);
ok(0);
ok(1);
ok(2);




More information about the dslinux-commit mailing list