----- Original Message ----
From: Michael G Schwern
> > nonNegativeInteger ::= digit {digit}
> > plan ::= '1..' nonNegativeInteger "\n"
>
> TODO and SKIP are case insensitive
TAPx::Parser treats them as case insensitive, but I wasn't sure how to
represent that in a grammar:
my $directive = qr/
(?i:
\#\s+
(TODO|SKIP)\s*
(.*)
)?
/x;
Anyone who's curious can read
http://search.cpan.org/src/OVID/TAPx-Parser-0.22/lib/TAPx/Parser/Grammar.pm to
see the exact regular expressions I use. (And I already see a bad \s* in there)
For a future release, I might use class variables rather than lexicals so folks
can override 'em.
> You might find it handy to pull all the sample test files from the
> Test::Harness tests and use them to test TAPx::Parser.
> http://svn.perl.org/modules/Test-Harness/trunk/t/sample-tests/
>
> The proper behaviors can be gleaned from t/strap-analyze.t
Thank you! Those are great. I've looked through the Test::Harness tests
before but I completely missed those :/ I'll clean up the skip all syntax.
(And is it pitiful for me to be such a geek that those test files fill me with
glee?)
Also, for purposes of backwards compatability, I'm concerned about qr// and
$code->(). When were those first introduced in Perl? I don't want someone
using really old versions to not be able to use this code.
Cheers,
Ovid
