While this is the right place for a TODO test, unfortunately the
Test::Harness that currently comes with Perl doesn't understand this
kind of TODO test. Parrot users would have to either download the new
version from CPAN or wait for 5.8.
So instead of TODO, use SKIP. TODO would be better, since you'd know
if the test started passing, but we'll live.
Alternatively, if you really, really, really want TODO tests you could
drop Test::Harness 2.01 into Test/ and make t/harness use that version
explicitly. If you want to justify it, 2.01 works better on VMS than
the one which comes with perl. :)
--- t/op/rx.t 29 Jan 2002 02:32:17 -0000 1.4
+++ t/op/rx.t 29 Jan 2002 18:53:22 -0000
@@ -209,8 +209,8 @@
>
OUTPUT
-TODO: {
- local $TODO="Pending some sort of lowercasing op";
+SKIP: {
+ skip("Pending some sort of lowercasing op", 1);
output_is(gentest('HeLlO', <<'CODE', 'i'), <<'OUTPUT', 'case-insensitive
regexen (/i)');
rx_literal P0, "hel", $advance
rx_oneof P0, "lmno", $advance
--
Michael G. Schwern <[EMAIL PROTECTED]> http://www.pobox.com/~schwern/
Perl Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
It's Crack Cocaine time!
