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

tests for audit, security which wrap info and warn

Browse source
This commit is contained in:
Colin Kuskie 2006-11-20 05:28:53 +00:00
parent 648d7d0008
commit 9c6f2c8b09
1 changed files with 24 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

31
t/Session/ErrorHandler.t
View file

@ -18,12 +18,16 @@ use WebGUI::Session;
use Test::More;
use Test::MockObject::Extends;
my $numTests = 13;
my $numTests = 15;
plan tests => $numTests;
my $session = WebGUI::Test->session;
##Setup for security method test
my %newEnv = ( REMOTE_ADDR => '192.168.0.2' );
$session->env->{_env} = \%newEnv;
my ($eh) = $session->quick('errorHandler');
my $logger = $session->errorHandler->getLogger;
$logger = Test::MockObject::Extends->new( $logger );
@ -38,29 +42,42 @@ $logger->mock( 'info', sub { $info = $_[1]} );
####################################################
#
# warn
# warn, security
#
####################################################
my $accumulated_warn = "";
$eh->warn("This is a warning");
is($warns, "This is a warning", "warn: Log4perl called");
is($session->errorHandler->{_debug_warn}, "This is a warning\n", "warn: message internally appended");
my $accumulated_warn .= "This is a warning\n";
is($session->errorHandler->{_debug_warn}, $accumulated_warn, "warn: message internally appended");
$eh->warn("Second warning");
is($warns, "Second warning", "warn: Log4perl called again");
is($session->errorHandler->{_debug_warn}, "This is a warning\nSecond warning\n", "warn: second message appended");
$accumulated_warn .= "Second warning\n";
is($session->errorHandler->{_debug_warn}, $accumulated_warn, "warn: second message appended");
$eh->security('Shields up, red alert');
my $security = sprintf '%s (%d) connecting from %s attempted to %s',
$session->user->username, $session->user->userId, $session->env->getIp, 'Shields up, red alert';
is($warns, $security, 'security: calls warn with username, userId and IP address');
####################################################
#
# info
# info, audit
#
####################################################
my $accumulated_info = '';
$eh->info("This is informative");
is($info, "This is informative", "info: Log4perl called");
is($session->errorHandler->{_debug_info}, "This is informative\n", "info: message internally appended");
$accumulated_info .= "This is informative\n";
is($session->errorHandler->{_debug_info}, $accumulated_info, "info: message internally appended");
$eh->info("More info");
is($info, "More info", "info: Log4perl called again");
is($session->errorHandler->{_debug_info}, "This is informative\nMore info\n", "info: second message appended");
$accumulated_info .= "More info\n";
is($session->errorHandler->{_debug_info}, $accumulated_info, "info: second message appended");
$eh->audit('Check this out');
my $audit = sprintf '%s (%d) %s', $session->user->username, $session->user->userId, 'Check this out';
is($info, $audit, 'audit: calls info with username and userId');
####################################################
#