fixed Test::Maker::HTML Level. added some comments for future generations

This commit is contained in:
Doug Bell 2008-01-05 05:10:57 +00:00
parent a05e90408e
commit a6c9c2d56c
3 changed files with 6 additions and 1 deletions

View file

@ -208,6 +208,9 @@ Run the tests we've prepared and delete them as we run them.
sub run {
my $self = shift;
# This is to fix detection of SKIP and TODO
local $Test::Builder::Level = $Test::Builder::Level + 1;
while (my $test = shift @{ $self->{_tests} }) {
my $o = $test->{object};