ext/Test-Harness/t/source_tests/harness_failure

   1 #!/usr/bin/perl
   2
   3 print <<'END_TESTS';
   4 1..2
   5 ok 1 - this is a test
   6 not ok 2 - this is another test
   7 #   Failed test 'this is another test'
   8 #   in harness_failure.t at line 5.
   9 #          got: 'waffle'
  10 #     expected: 'yarblokos'
  11 END_TESTS