From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

#!/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