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

By default, all Log::Log4Perl calls are mocked so that they can

Browse source 
be intercepted and tested.
Reworked Session/ErrorHandler.t to take account of this.
Updated Stow test coverage to 100%.
This commit is contained in:
Colin Kuskie 2007-04-06 22:50:53 +00:00
parent 0587d28026
commit c6bde7eed9
3 changed files with 41 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

14
t/lib/WebGUI/Test.pm
View file

@ -8,6 +8,12 @@ our ( $SESSION, $WEBGUI_ROOT, $CONFIG_FILE, $WEBGUI_LIB, $WEBGUI_TEST_COLLATERAL
use Config qw[];
use IO::Handle qw[];
use File::Spec qw[];
use Test::MockObject::Extends;
our $logger_warns;
our $logger_debug;
our $logger_info;
our $logger_error;
BEGIN {
@ -81,6 +87,14 @@ BEGIN {
}
$SESSION = WebGUI::Session->open( $WEBGUI_ROOT, $CONFIG_FILE );
my $logger = $SESSION->errorHandler->getLogger;
$logger = Test::MockObject::Extends->new( $logger );
$logger->mock( 'warn', sub { $WebGUI::Test::logger_warns = $_[1]} );
$logger->mock( 'debug', sub { $WebGUI::Test::logger_debug = $_[1]} );
$logger->mock( 'info', sub { $WebGUI::Test::logger_info = $_[1]} );
$logger->mock( 'error', sub { $WebGUI::Test::logger_error = $_[1]} );
}
END {