Test-Class

 view release on metacpan or  search on metacpan

t/runtests_die.t  view on Meta::CPAN

sub test_object : Test(2) {
	my $object = Object->new;
	isa_ok($object, "Object") or die("could not create object\n");
	is($object->open, "open worked");
}

package main;
use Test::Builder::Tester tests => 1;
$ENV{TEST_VERBOSE}=0;

my $filename = sub { return (caller)[1] }->();
my $identifier = ($Test::More::VERSION < 0.88) ? 'object' : 'thing';

test_out( qr/not ok 1 - (?:The $identifier|undef) isa '?Object'?\n/);
test_err( "#     Failed test ($filename at line 15)");
test_err( "#   (in Foo->test_object)" );
test_err( qr/#     (?:The $identifier|undef) isn't defined\n/);
test_out( "not ok 2 - test_object died (could not create object)");
test_err( "#     Failed test ($filename at line 33)");
test_err( "#   (in Foo->test_object)" );
Foo->runtests;

t/runtests_die_empty.t  view on Meta::CPAN

sub die_empty : Test(1) {
        die Object->new();
        fail 'we should never get here';
}

package main;
use Test::Builder::Tester tests => 1;
$ENV{TEST_VERBOSE}=0;

my $filename = sub { return (caller)[1] }->();

test_out( "not ok 1 - die_empty died ()");
test_err( "#   Failed test 'die_empty died ()'" );
test_err( "#   at $filename line 40.");
test_err( "#   (in Foo->die_empty)" );
Foo->runtests;
test_test("we can handle an exception that stringifies to the empty string");

t/runtests_die_nearlyempty.t  view on Meta::CPAN

sub die_two_cr : Test(1) {
        die "\n\n";
        fail 'we should never get here';
}

package main;
use Test::Builder::Tester tests => 1;
$ENV{TEST_VERBOSE}=0;

my $filename = sub { return (caller)[1] }->();

test_out( "not ok 1 - die_one_cr died ()");
test_err( "#   Failed test 'die_one_cr died ()'" );
test_err( "#   at $filename line 36.");
test_err( "#   (in Foo->die_one_cr)" );
test_out( "not ok 2 - die_two_cr died (");
test_out( "# )");
test_err( "#   Failed test 'die_two_cr died (" );
test_err( "# )'");
test_err( "#   at $filename line 36.");

t/runtests_result.t  view on Meta::CPAN

} 


package main;
use Test::Builder::Tester tests => 4;
use Test::More;
$ENV{TEST_VERBOSE}=0;

my $all_ok;

my $filename = sub { return (caller)[1] }->();

test_out( "not ok 1 - fails" );
test_err( "#     Failed test ($filename at line 11)" );
test_err( "#   (in Fail->test1)" );
test_out("ok 2 - passes");
$all_ok = Fail->runtests;
test_test("single failure ran okay");
is($all_ok, 0, "failure detected");

$all_ok = Pass->runtests;

t/todo.t  view on Meta::CPAN

sub todo_test : Test  {
	local $TODO = "unimplemented";
	ok(Object->live, "object live");
}

package main;
use Test::Builder::Tester tests => 2;
use Test::More;
$ENV{TEST_VERBOSE}=0;

my $filename = sub { return (caller)[1] }->();

my $test_more_version = eval($Test::More::VERSION);
diag "Test::More: $test_more_version";

test_out( "not ok 1 - object live # TODO unimplemented" );
if ($test_more_version >= 0.9501) {
    # Test-Simple-0.95_01 or later output TODO message to output handle.
    # see http://cpansearch.perl.org/src/MSCHWERN/Test-Simple-0.95_01/Changes
    #    Test::Builder::Tester now sets $tb->todo_output to the output handle and
    #    not the error handle (to be in accordance with the default behaviour of