allow skipping test cleanup

This commit is contained in:
Graham Knop 2010-05-11 20:01:16 -05:00
parent 9c99fa2f92
commit 033fc6c5d3

View file

@ -998,6 +998,12 @@ sub addToCleanup {
} }
sub cleanup { 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 # remove guards in reverse order they were added, triggering all of the
# requested cleanup operations # requested cleanup operations
pop @guarded pop @guarded