oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

More END block cleanups.

Browse source
This commit is contained in:
Colin Kuskie 2010-06-13 21:33:22 -07:00
parent 8bcf653f66
commit a8b82efb7a
4 changed files with 180 additions and 191 deletions
Download patch file Download diff file Expand all files Collapse all files

12
t/International.t
View file

@ -50,6 +50,11 @@ is($i18n->get('topicName'), 'Assets', 'get: get English label for topicName in A
is($i18n->get('topicName', 'WebGUI'), 'WebGUI', 'get: test manual namespace override');
installPigLatin();
WebGUI::Test->addToCleanup(sub {
unlink File::Spec->catfile(WebGUI::Test->lib, qw/WebGUI i18n PigLatin WebGUI.pm/);
unlink File::Spec->catfile(WebGUI::Test->lib, qw/WebGUI i18n PigLatin.pm/);
rmdir File::Spec->catdir(WebGUI::Test->lib, qw/WebGUI i18n PigLatin/);
});
#tests for sub new
my $i18nNew1 = WebGUI::International->new($session);
@ -131,8 +136,5 @@ my $newi18n = WebGUI::International->new($session);
$newi18n->get('104', 'WebGUI', 'English'),
'Language check after SetLanguage contentHandler : key from missing file return English key'
);
END {
unlink File::Spec->catfile(WebGUI::Test->lib, qw/WebGUI i18n PigLatin WebGUI.pm/);
unlink File::Spec->catfile(WebGUI::Test->lib, qw/WebGUI i18n PigLatin.pm/);
rmdir File::Spec->catdir(WebGUI::Test->lib, qw/WebGUI i18n PigLatin/);
}
#vim:ft=perl