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