| Date: | Thu, 18 Sep 2003 13:22:40 -0500 |
| To: | bug-test-harness [...] rt.cpan.org |
| From: | Ilya Zakharevich <nospam-abuse [...] ilyaz.org>(by way of Andy Lester) |
| Subject: | 5.8.1-tobe: Test::Harness bugs |
a) Contrary to the documentation, Test::Harness expects a whitespace
after `# TODO' marker. For example, a test emiting
not ok 6 # TODO: no brain found
works if run as `perl TEST foo.t', but not if `perl harness foo.t'.
[See the code matching $control below.]
b) I can see stuff like
my($name, $control) = split /(?:[^\\]|^)#/, $extra if $extra;
my($type, $reason) = $control =~ /^\s*(\S+)(?:\s+(.*))?$/ if $control;
followed by `if defined $type' [in Test/Harness/Straps.pm]. Given
that $type contains line noise unless $extra and $control were
TRUE, this is hardly a good choice...
Thanks,
Ilya