1#!/usr/bin/perl 2 3print <<'END_TESTS'; 41..2 5ok 1 - this is a test 6not 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' 11END_TESTS 12