4 if( $ENV{PERL_CORE} ) {
10 require Test::Harness;
13 # This feature requires a fairly new version of Test::Harness
14 (my $th_version = $Test::Harness::VERSION) =~ s/_//; # for X.Y_Z alpha versions
15 if( $th_version < 2.03 ) {
17 fail "Need Test::Harness 2.03 or up. You have $th_version.";
24 $Why = 'Just testing the todo interface.';
30 fail("Expected failure");
31 fail("Another expected failure");
33 $is_todo = Test::More->builder->todo;
36 pass("This is not todo");
37 ok( $is_todo, 'TB->todo' );
43 fail("Yet another failure");
46 pass("This is still not todo");
50 local $TODO = "testing that error messages don't leak out of todo";
52 ok( 'this' eq 'that', 'ok' );
54 like( 'this', '/that/', 'like' );
55 is( 'this', 'that', 'is' );
56 isnt( 'this', 'this', 'isnt' );
58 can_ok('Fooble', 'yarble');
59 isa_ok('Fooble', 'yarble');
66 todo_skip "Just testing todo_skip", 2;
68 fail("Just testing todo");
69 die "todo_skip should prevent this";