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 print "1..2\n";
  15
  16 my $test_num = 1;
  17 # Utility testing functions.
  18 sub ok ($;$) {
  19     my($test, $name) = @_;
  20     my $ok = '';
  21     $ok .= "not " unless $test;
  22     $ok .= "ok $test_num";
  23     $ok .= " - $name" if defined $name;
  24     $ok .= "\n";
  25     print $ok;
  26     $test_num++;
  27 }
  28
  29
  30 package main;
  31
  32 require Test::Simple;
  33
  34 require Test::Simple::Catch;
  35 my($out, $err) = Test::Simple::Catch::caught();
  36
  37 Test::Simple->import(tests => 5);
  38
  39 #line 30
  40 ok(1, 'Foo');
  41 ok(0, 'Bar');
  42
  43 END {
  44     My::Test::ok($$out eq <<OUT);
  45 1..5
  46 ok 1 - Foo
  47 not ok 2 - Bar
  48 OUT
  49
  50     My::Test::ok($$err eq <<ERR);
  51 #     Failed test ($0 at line 31)
  52 # Looks like you planned 5 tests but only ran 2.
  53 ERR
  54
  55     exit 0;
  56 }