lib/Test/Simple/t/tbt_05faildiag.t

   1 #!/usr/bin/perl
   2
   3 BEGIN {
   4     if( $ENV{PERL_CORE} ) {
   5         chdir 't';
   6         @INC = '../lib';
   7     }
   8 }
   9
  10 use Test::Builder::Tester tests => 5;
  11 use Test::More;
  12
  13 # test_fail
  14
  15 test_out("not ok 1 - one");
  16 test_fail(+1);
  17 ok(0,"one");
  18
  19 test_out("not ok 2 - two");
  20 test_fail(+2);
  21
  22 ok(0,"two");
  23
  24 test_test("test fail");
  25
  26 test_fail(+2);
  27 test_out("not ok 1 - one");
  28 ok(0,"one");
  29 test_test("test_fail first");
  30
  31 # test_diag
  32
  33 use Test::Builder;
  34 my $test = new Test::Builder;
  35
  36 test_diag("this is a test string","so is this");
  37 $test->diag("this is a test string\n", "so is this\n");
  38 test_test("test diag");
  39
  40 test_diag("this is a test string","so is this");
  41 $test->diag("this is a test string\n");
  42 $test->diag("so is this\n");
  43 test_test("test diag multi line");
  44
  45 test_diag("this is a test string");
  46 test_diag("so is this");
  47 $test->diag("this is a test string\n");
  48 $test->diag("so is this\n");
  49 test_test("test diag multiple");
  50
  51