gnu/usr.bin/perl/cpan/Test-Harness/t/source_tests/harness_failure


1
2
3
4
5
6
7
8
9
10
11

#!/usr/bin/perl

print <<'END_TESTS';
1..2
ok 1 - this is a test
not ok 2 - this is another test
#   Failed test 'this is another test'
#   in harness_failure.t at line 5.
#          got: 'waffle'
#     expected: 'yarblokos'
END_TESTS