In trying out some edge cases (did you know that perl segfaults when trying to
parse a 39M Perl program?), I've found the following edge case which I think is
handled in correctly by both TAP::Parser and Test::Harness.
#!/usr/bin/perl
use strict;
use warnings;
print <<'END';
1..5
ok 1 - can read incriminating email
ok # todo lowercase
ok \# TODO ?
not ok 17
ok 4 can encrypt incriminating email
ok 5 \\# SKIP
END
That final SKIP should really be a skip because the hash mark is not actually
escaped. However, both prove and runtests say that it's not a skipped test.
This behavior seems incorrect, but perhaps I'm misunderstanding.
Cheers,
Ovid
--
Buy the book - http://www.oreilly.com/catalog/perlhks/
Perl and CGI - http://users.easystreet.com/ovid/cgi_course/
Personal blog - http://publius-ovidius.livejournal.com/
Tech blog - http://use.perl.org/~Ovid/journal/
