allow skipping test cleanup
This commit is contained in:
parent
9c99fa2f92
commit
033fc6c5d3
1 changed files with 6 additions and 0 deletions
|
|
@ -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
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue