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