The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
%TestML 1.0

Plan = 3;

*testml_stream.compile_testml().Catch().msg() ~~ *error;

=== No TestML directive
--- testml_stream
# A comment
*foo == *bar;
--- error: No TestML directive found
--- line: 2

=== Missing semicolon
--- testml_stream
\%TestML 1.0
*foo == *bar
*foo == *bar;
--- error: You seem to be missing a semicolon
--- line: 2

=== Missing semicolon on a non assertion
--- testml_stream
\%TestML 1.0
*foo == *bar;
*foo()
*foo == *bar;
--- error: You seem to be missing a semicolon
--- line: 2