From 0ef509374fb51a551dcbaf9e91a56346a4229c9b 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 041a950b2..0a04ca677 100644
--- a/t/lib/WebGUI/Test.pm
+++ b/t/lib/WebGUI/Test.pm
@@ -1023,6 +1023,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