Fix a leaking test.
This commit is contained in:
parent
7cfc8e6e71
commit
dc489b25b9
1 changed files with 7 additions and 1 deletions
|
|
@ -14,15 +14,21 @@ use WebGUI::Test;
|
|||
use WebGUI::Session;
|
||||
use HTML::TokeParser;
|
||||
use Data::Dumper;
|
||||
use WebGUI::VersionTag;
|
||||
|
||||
use Test::More; # increment this value for each test you create
|
||||
|
||||
my $session = WebGUI::Test->session;
|
||||
|
||||
my $tag = WebGUI::VersionTag->getWorking($session);
|
||||
my ($template) = addTemplate();
|
||||
|
||||
my $homeAsset = WebGUI::Test->asset;
|
||||
$tag->commit;
|
||||
|
||||
my $originalDefault = $session->setting->get('defaultPage');
|
||||
WebGUI::Test->addToCleanup(sub { $session->setting->set('defaultPage', $originalDefault); });
|
||||
$session->setting->set( 'defaultPage', $homeAsset->getId );
|
||||
WebGUI::Test->addToCleanup($tag);
|
||||
|
||||
my $i18n = WebGUI::International->new($session,'Macro_H_homeLink');
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue