From 033fc6c5d346eeb9d25368b7877a2957e372e24f Mon Sep 17 00:00:00 2001
From: Graham Knop <haarg@haarg.org>
Date: Tue, 11 May 2010 20:01:16 -0500
Subject: [PATCH] allow skipping test cleanup

---
 t/lib/WebGUI/Test.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/t/lib/WebGUI/Test.pm b/t/lib/WebGUI/Test.pm
index 299ddc3c6..3dccd24d4 100644
--- a/t/lib/WebGUI/Test.pm
+++ b/t/lib/WebGUI/Test.pm
@@ -998,6 +998,12 @@ sub addToCleanup {
 }
 
 sub cleanup {
+    if ($ENV{WEBGUI_TEST_NOCLEANUP}) {
+        (pop @guarded)->dismiss
+            while @guarded;
+        return;
+    }
+
     # remove guards in reverse order they were added, triggering all of the
     # requested cleanup operations
     pop @guarded