lib/Test/Simple/t/missing.t

   1 BEGIN {
   2     if( $ENV{PERL_CORE} ) {
   3         chdir 't';
   4         @INC = ('../lib', 'lib');
   5     }
   6     else {
   7         unshift @INC, 't/lib';
   8     }
   9 }
  10
  11 # Can't use Test.pm, that's a 5.005 thing.
  12 package My::Test;
  13
  14 # This has to be a require or else the END block below runs before
  15 # Test::Builder's own and the ending diagnostics don't come out right.
  16 require Test::Builder;
  17 my $TB = Test::Builder->create;
  18 $TB->plan(tests => 2);
  19
  20 sub is { $TB->is_eq(@_) }
  21
  22
  23 package main;
  24
  25 require Test::Simple;
  26
  27 require Test::Simple::Catch;
  28 my($out, $err) = Test::Simple::Catch::caught();
  29 local $ENV{HARNESS_ACTIVE} = 0;
  30
  31 Test::Simple->import(tests => 5);
  32
  33 #line 30
  34 ok(1, 'Foo');
  35 ok(0, 'Bar');
  36 ok(1, '1 2 3');
  37
  38 END {
  39     My::Test::is($$out, <<OUT);
  40 1..5
  41 ok 1 - Foo
  42 not ok 2 - Bar
  43 ok 3 - 1 2 3
  44 OUT
  45
  46     My::Test::is($$err, <<ERR);
  47 #   Failed test 'Bar'
  48 #   at $0 line 31.
  49 #     You named your test '1 2 3'.  You shouldn't use numbers for your test names.
  50 #     Very confusing.
  51 # Looks like you planned 5 tests but ran 3.
  52 # Looks like you failed 1 test of 3 run.
  53 ERR
  54
  55     exit 0;
  56 }