vcs.maemo.org Git - dh-make-perl/blob - dev/i386/libtest-simple-perl/libtest-simple-perl-0.80/t/tbt_05faildiag.t

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