Ready for 7.10.29 development.
This commit is contained in:
Colin Kuskie
commit
c806f99b7b
4236 changed files with 1217679 additions and 0 deletions
149
t/Pluggable.t
Normal file
149
t/Pluggable.t
Normal file
|
|
@ -0,0 +1,149 @@
|
|||
#-------------------------------------------------------------------
|
||||
# WebGUI is Copyright 2001-2009 Plain Black Corporation.
|
||||
#-------------------------------------------------------------------
|
||||
# Please read the legal notices (docs/legal.txt) and the license
|
||||
# (docs/license.txt) that came with this distribution before using
|
||||
# this software.
|
||||
#------------------------------------------------------------------
|
||||
# http://www.plainblack.com info@plainblack.com
|
||||
#------------------------------------------------------------------
|
||||
|
||||
# Write a little about what this script tests.
|
||||
#
|
||||
#
|
||||
|
||||
use FindBin;
|
||||
use strict;
|
||||
use lib "$FindBin::Bin/lib";
|
||||
use Test::More;
|
||||
use WebGUI::Test;
|
||||
use File::Find;
|
||||
use File::Spec;
|
||||
use Test::Deep;
|
||||
|
||||
# Must load some Test::Deep modules before we start modifying @INC
|
||||
use Test::Deep::Array;
|
||||
use Test::Deep::ArrayLength;
|
||||
use Test::Deep::ArrayLengthOnly;
|
||||
use Test::Deep::ArrayElementsOnly;
|
||||
use Test::Deep::RefType;
|
||||
use Test::Deep::Shallow;
|
||||
use Test::Deep::Blessed;
|
||||
use Test::Deep::Isa;
|
||||
use Test::Deep::Set;
|
||||
use Test::Exception;
|
||||
|
||||
use WebGUI::Pluggable;
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
# Init
|
||||
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
# Tests
|
||||
|
||||
plan tests => 19; # Increment this number for each test you create
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
# put your tests here
|
||||
eval { WebGUI::Pluggable::load("No::Way::In::Hell") };
|
||||
isnt($@, '', "Module shouldn't load.");
|
||||
eval { WebGUI::Pluggable::load("Config::JSON") };
|
||||
is($@, '', "Module should load.");
|
||||
my $string = WebGUI::Pluggable::run("Data::Dumper","Dumper",[ {color=>"black", make=>"honda"}]);
|
||||
is($string, q|$VAR1 = {
|
||||
'make' => 'honda',
|
||||
'color' => 'black'
|
||||
};
|
||||
|, "Can run a function.");
|
||||
my $dumper = WebGUI::Pluggable::instanciate("Data::Dumper","new",[ [{color=>"black", make=>"honda"}]]);
|
||||
is($dumper->Dump, q|$VAR1 = {
|
||||
'make' => 'honda',
|
||||
'color' => 'black'
|
||||
};
|
||||
|, "Can instanciate an object.");
|
||||
|
||||
dies_ok { WebGUI::Pluggable::load( '::HA::HA' ) } 'load dies on bad input';
|
||||
like( $@, qr/^\QInvalid module name: ::HA::HA/, 'helpful error message' );
|
||||
|
||||
dies_ok { WebGUI::Pluggable::load( 'HA::HA::' ) } 'load dies on bad input';
|
||||
dies_ok { WebGUI::Pluggable::load( 'HA::..::..::HA' ) } 'load dies on bad input';
|
||||
dies_ok { WebGUI::Pluggable::load( '..::..::..::HA' ) } 'load dies on bad input';
|
||||
dies_ok { WebGUI::Pluggable::load( 'uploads::ik::jo::ikjosdfwefsdfsefwef::myfile.txt\0.pm' ) } 'load dies on bad input';
|
||||
dies_ok { WebGUI::Pluggable::load( 'HA::::HA' ) } 'load dies on bad input';
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
# Test find and findAndLoad
|
||||
{ # Block to localize @INC
|
||||
my $lib = WebGUI::Test->lib;
|
||||
local @INC = ( $lib );
|
||||
|
||||
# Use the i18n files to test
|
||||
my @testFiles = ();
|
||||
File::Find::find(
|
||||
sub {
|
||||
if ( !/^[.]/ && /[.]pm$/ ) {
|
||||
my $name = $File::Find::name;
|
||||
$name =~ s{^$lib[/]}{};
|
||||
$name =~ s/[.]pm$//;
|
||||
$name =~ s{/}{::}g;
|
||||
push @testFiles, $name;
|
||||
}
|
||||
},
|
||||
File::Spec->catfile( $lib, 'WebGUI', 'i18n' ),
|
||||
);
|
||||
|
||||
cmp_deeply(
|
||||
[ WebGUI::Pluggable::find( 'WebGUI::i18n' ) ],
|
||||
bag( @testFiles ),
|
||||
"find() finds all modules by default",
|
||||
);
|
||||
|
||||
cmp_deeply(
|
||||
[ WebGUI::Pluggable::find( 'WebGUI::i18n', { onelevel => 1 } ) ],
|
||||
bag( grep { /^WebGUI::i18n::[^:]+$/ } @testFiles ),
|
||||
"find() with onelevel",
|
||||
);
|
||||
|
||||
cmp_deeply(
|
||||
[ WebGUI::Pluggable::find( 'WebGUI::i18n', { exclude => [ 'WebGUI::i18n::English::WebGUI' ] } ) ],
|
||||
bag( grep { $_ ne 'WebGUI::i18n::English::WebGUI' } @testFiles ),
|
||||
"find() with exclude",
|
||||
);
|
||||
|
||||
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 ),
|
||||
"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 ),
|
||||
"find() with exclude with regex",
|
||||
);
|
||||
|
||||
cmp_deeply(
|
||||
[ 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'
|
||||
} @testFiles ),
|
||||
"find() with multiple excludes",
|
||||
);
|
||||
|
||||
cmp_deeply(
|
||||
[ WebGUI::Pluggable::find( 'WebGUI::i18n', { onelevel => 1, return => "name" } ) ],
|
||||
bag( map { /::([^:]+)$/; $1 } grep { /^WebGUI::i18n::[^:]+$/ } @testFiles ),
|
||||
"find() with return => name",
|
||||
);
|
||||
};
|
||||
#vim:ft=perl
|
||||
Loading…
Add table
Add a link
Reference in a new issue