>>>>> "A" == Abigail <[EMAIL PROTECTED]> writes:
A> But, if all you want to do is add a '# TODO' trailer, wouldn't the
A> following do the trick?
A> local $trailer = "";
A> sub ok {
A> my $result = shift;
A> $count ++;
A> print $result ? "ok " : "not ok ", $count, $trailer, "\n";
A> }
A> ok (...);
A> FOO: {
A> local $trailer = "# TODO";
A> ok (...);
A> }
A> ok (...);
i proposed a similar solution to schwern last night and he shot it down
as he doesn't want the test coder to do any more work than necessary. i
said, if he uses the test suite he is signing a contract and if he wants
the block TODO feature, he must obey the rules. schwern didn't
agree. later this week i will clobber him with a blunt contract and we
shall see if he won't change his mind. :)
uri
--
Uri Guttman --------- [EMAIL PROTECTED] ---------- http://www.sysarch.com
SYStems ARCHitecture and Stem Development ------ http://www.stemsystems.com
Search or Offer Perl Jobs -------------------------- http://jobs.perl.org