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 local $ENV{HARNESS_ACTIVE} = 0;
  37
  38 Test::Simple->import(tests => 5);
  39
  40 #line 30
  41 ok(1, 'Foo');
  42 ok(0, 'Bar');
  43
  44 END {
  45     My::Test::ok($$out eq <<OUT);
  46 1..5
  47 ok 1 - Foo
  48 not ok 2 - Bar
  49 OUT
  50
  51     My::Test::ok($$err eq <<ERR);
  52 #     Failed test ($0 at line 31)
  53 # Looks like you planned 5 tests but only ran 2.
  54 ERR
  55
  56     exit 0;
  57 }