From a6c9c2d56c204bb8fab20a26903e1aaca35fd58b Mon Sep 17 00:00:00 2001
From: Doug Bell <doug@plainblack.com>
Date: Sat, 5 Jan 2008 05:10:57 +0000
Subject: [PATCH] fixed Test::Maker::HTML Level. added some comments for future
 generations

---
 t/lib/WebGUI/Test/Maker.pm            | 1 +
 t/lib/WebGUI/Test/Maker/HTML.pm       | 3 +++
 t/lib/WebGUI/Test/Maker/Permission.pm | 3 ++-
 3 files changed, 6 insertions(+), 1 deletion(-)

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 };