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

Fix a problem with bad tests and bad code in globbed Pluggable excludes.

Browse source
This commit is contained in:
Colin Kuskie 2009-11-17 23:33:44 -08:00
parent 77389ea60f
commit cc84994ea7
2 changed files with 14 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

18
t/Pluggable.t
View file

@ -41,7 +41,7 @@ use WebGUI::Pluggable;
#----------------------------------------------------------------------------
# Tests
plan tests => 11; # Increment this number for each test you create
plan tests => 12; # Increment this number for each test you create
#----------------------------------------------------------------------------
# put your tests here
@ -103,13 +103,19 @@ is($dumper->Dump, q|$VAR1 = {
cmp_deeply(
[ WebGUI::Pluggable::find( 'WebGUI::i18n', { exclude => [ 'WebGUI::i18n::English::WebGUI*' ] } ) ],
bag( grep { $_ ne 'WebGUI::i18n::English::WebGUI' || $_ ne 'WebGUI::i18n::English::WebGUIProfile' } @testFiles ),
bag( grep { $_ ne 'WebGUI::i18n::English::WebGUI' && $_ ne 'WebGUI::i18n::English::WebGUIProfile' } @testFiles ),
"find() with exclude with glob",
);
cmp_deeply(
[ WebGUI::Pluggable::find( 'WebGUI::i18n', { exclude => [ 'WebGUI::i18n::English*' ] } ) ],
[],
"find() with exclude with massive glob",
);
cmp_deeply(
[ WebGUI::Pluggable::find( 'WebGUI::i18n', { exclude => [ 'WebGUI::i18n::English::WebGUI.*' ] } ) ],
bag( grep { $_ ne 'WebGUI::i18n::English::WebGUI' || $_ ne 'WebGUI::i18n::English::WebGUIProfile' } @testFiles ),
bag( grep { $_ ne 'WebGUI::i18n::English::WebGUI' && $_ ne 'WebGUI::i18n::English::WebGUIProfile' } @testFiles ),
"find() with exclude with regex",
);
@ -117,9 +123,9 @@ is($dumper->Dump, q|$VAR1 = {
[ WebGUI::Pluggable::find( 'WebGUI::i18n', { exclude => [ qw/WebGUI::i18n::English::WebGUI.* WebGUI::i18n::English::ShipDriver_USPS*/ ] } ) ],
bag( grep {
$_ ne 'WebGUI::i18n::English::WebGUI'
|| $_ ne 'WebGUI::i18n::English::WebGUIProfile'
|| $_ ne 'WebGUI::i18n::English::ShipDriver_USPS'
|| $_ ne 'WebGUI::i18n::English::ShipDriver_USPSInternational'
&& $_ ne 'WebGUI::i18n::English::WebGUIProfile'
&& $_ ne 'WebGUI::i18n::English::ShipDriver_USPS'
&& $_ ne 'WebGUI::i18n::English::ShipDriver_USPSInternational'
} @testFiles ),
"find() with multiple excludes",
);