diff --git a/t/lib/WebGUI/Test/Maker.pm b/t/lib/WebGUI/Test/Maker.pm index 3e27b88b0..2bc8b4f16 100644 --- a/t/lib/WebGUI/Test/Maker.pm +++ b/t/lib/WebGUI/Test/Maker.pm @@ -147,6 +147,7 @@ sub run { my $self = shift; my $tb = $CLASS->builder; + # This is to fix SKIP and TODO detection local $Test::Builder::Level = $Test::Builder::Level + 1; while (my $test = shift @{ $self->{_tests} }) { diff --git a/t/lib/WebGUI/Test/Maker/HTML.pm b/t/lib/WebGUI/Test/Maker/HTML.pm index 404be27d0..e699b088d 100644 --- a/t/lib/WebGUI/Test/Maker/HTML.pm +++ b/t/lib/WebGUI/Test/Maker/HTML.pm @@ -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}; diff --git a/t/lib/WebGUI/Test/Maker/Permission.pm b/t/lib/WebGUI/Test/Maker/Permission.pm index e5e65dd6f..35ecd103c 100644 --- a/t/lib/WebGUI/Test/Maker/Permission.pm +++ b/t/lib/WebGUI/Test/Maker/Permission.pm @@ -185,7 +185,7 @@ Run the tests we've prepared and delete them as we run them. sub run { my $self = shift; - + while (my $test = shift @{ $self->{_tests} }) { my $session; my @methodArguments = (); @@ -271,6 +271,7 @@ sub runUsers { $users, $passing, $comment ) = @_; my $failing = !$passing; my $tb = $CLASS->builder; + # This is to fix detection of SKIP and TODO local $Test::Builder::Level = $Test::Builder::Level + 1; foreach my $userId (@{ $users }) { my @args = @{ $precedingArguments };