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

Fixes bug #11780: anchor filename regex to the end of the string.

Browse source
This commit is contained in:
Colin Kuskie 2010-08-15 23:23:49 -07:00
parent 05c287cfc7
commit 8f7bbdaa5d
3 changed files with 13 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
t/Asset/File/ZipArchive.t
View file

@ -19,7 +19,7 @@ use WebGUI::Asset::File::ZipArchive;
use WebGUI::Test;
use Test::More; # increment this value for each test you create
use Test::Deep;
plan tests => 2;
plan tests => 3;
my $session = WebGUI::Test->session;
@ -42,3 +42,12 @@ cmp_bag(
[ qw{ extensions.tar extension_pm.txt extension_perl.txt extension.html extensions extensions/extension.html }],
'files after fixFilenames, html files left alone'
);
$storage->addFileFromScalar('file.pm.pm','content');
$arch->fixFilenames();
cmp_bag(
$storage->getFiles,
[ qw{ extensions.tar extension_pm.txt extension_perl.txt extension.html extensions extensions/extension.html file_pm.pm.txt}],
'fixFilenames: anchors replacements to the end of the string'
);