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