4 if( $ENV{PERL_CORE} ) {
11 require Test::Harness;
14 if( $Test::Harness::VERSION < 1.23 ) {
15 plan skip_all => 'Need Test::Harness 1.23 or up';
22 $Why = 'Just testing the todo interface.';
27 fail("Expected failure");
28 fail("Another expected failure");
32 pass("This is not todo");
38 fail("Yet another failure");
41 pass("This is still not todo");
45 local $TODO = "testing that error messages don't leak out of todo";
47 ok( 'this' eq 'that', 'ok' );
49 like( 'this', '/that/', 'like' );
50 is( 'this', 'that', 'is' );
51 isnt( 'this', 'this', 'isnt' );
53 can_ok('Fooble', 'yarble');
54 isa_ok('Fooble', 'yarble');
61 todo_skip "Just testing todo_skip", 2;
63 fail("Just testing todo");
64 die "todo_skip should prevent this";