On Sat, Jul 21, 2001 at 03:47:09PM +0200, Marc A. Lehmann wrote:
> It's a hack. Also it's totally unclear to me (from your description),
> wether FOO: foo etc.. are all named the same and wether foo should
> magically deduce the name of the label form it's name etc.. etc..
FOO is a set name, foo() is aware of it.
Here's the real problem:
ok( 2 + 2 == 5 ); # prints "not ok 1\n"
TODO: {
todo("Some stuff");
ok( some_unfinished_func(42) == 23 ); # "not ok 2 # TODO\n"
}
ok( "foo" eq "bar" ); # "not ok 3\n";
Basically, the ok() inside the TODO block has to *somehow* be aware
that its inside the TODO block so it can print the special "# TODO"
flag. Whether it does this by todo() setting a flag, or ok() noticing
that it's inside a block called "TODO", doesn't matter.
I'd like to avoid XS, since this module (Test::More) has to work
everywhere. And I mean *everywhere*.
--
Michael G Schwern <[EMAIL PROTECTED]> http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
