diff --git a/t/lib/WebGUI/Test/Maker.pm b/t/lib/WebGUI/Test/Maker.pm index 021233ed7..3e27b88b0 100644 --- a/t/lib/WebGUI/Test/Maker.pm +++ b/t/lib/WebGUI/Test/Maker.pm @@ -145,6 +145,9 @@ Run the tests we've prepared and delete them as we run them. sub run { my $self = shift; + + my $tb = $CLASS->builder; + local $Test::Builder::Level = $Test::Builder::Level + 1; while (my $test = shift @{ $self->{_tests} }) { my $sub = $self->get("test"); diff --git a/t/lib/WebGUI/Test/Maker/Permission.pm b/t/lib/WebGUI/Test/Maker/Permission.pm index 176f58319..e5e65dd6f 100644 --- a/t/lib/WebGUI/Test/Maker/Permission.pm +++ b/t/lib/WebGUI/Test/Maker/Permission.pm @@ -271,6 +271,7 @@ sub runUsers { $users, $passing, $comment ) = @_; my $failing = !$passing; my $tb = $CLASS->builder; + local $Test::Builder::Level = $Test::Builder::Level + 1; foreach my $userId (@{ $users }) { my @args = @{ $precedingArguments }; my $oldUser = $session->user;