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

Fix strange module loading problem which doesn't happen in 7.x

Browse source
This commit is contained in:
Colin Kuskie 2010-09-22 11:46:31 -07:00
parent ecf7646948
commit 7fbb23dc5a
2 changed files with 15 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

2
t/Content/Asset.t
View file

@ -90,7 +90,7 @@ WebGUI::Test->addToCleanup( WebGUI::VersionTag->getWorking( $session ) );
#---------------------------------------------------------------------------- #----------------------------------------------------------------------------
# Tests # Tests
plan tests => 22; # Increment this number for each test you create plan tests => 25; # Increment this number for each test you create
#---------------------------------------------------------------------------- #----------------------------------------------------------------------------
# test getUrlPermutation( url ) method # test getUrlPermutation( url ) method

22
t/Content/Wizard.t
View file

@ -22,10 +22,24 @@ use WebGUI::Session;
# Init # Init
my $session = WebGUI::Test->session; my $session = WebGUI::Test->session;
BEGIN {
$INC{'WebGUI/Wizard/HelloWorld.pm'} = __FILE__;
}
package WebGUI::Wizard::HelloWorld;
use base "WebGUI::Wizard";
sub _get_steps { return ["hello"] }
sub www_hello { return "Hello World!\n" }
sub wrapStyle { return $_[1] }
#---------------------------------------------------------------------------- #----------------------------------------------------------------------------
# Tests # Tests
package main;
plan tests => 3; # Increment this number for each test you create plan tests => 3; # Increment this number for each test you create
#---------------------------------------------------------------------------- #----------------------------------------------------------------------------
@ -41,12 +55,4 @@ $session->request->setup_body( {
} ); } );
is( WebGUI::Content::Wizard::handler( $session ), "Hello World!\n", "Accepts request and returns response" ); is( WebGUI::Content::Wizard::handler( $session ), "Hello World!\n", "Accepts request and returns response" );
package WebGUI::Wizard::HelloWorld;
use base "WebGUI::Wizard";
sub _get_steps { return ["hello"] }
sub www_hello { return "Hello World!\n" }
sub wrapStyle { return $_[1] }
#vim:ft=perl #vim:ft=perl