Apache2-AuthCookieDBI
view release on metacpan or search on metacpan
use strict;
use warnings;
use English qw(-no_match_vars);
use FindBin qw($Bin);
use lib "$Bin/mock_libs";
use Apache2::RequestRec; # from mocks
use Apache2::Const -compile => qw( OK HTTP_FORBIDDEN );
use Crypt::CBC; # from mocks
use Digest::MD5 qw( md5_hex ); # from mocks
use Digest::SHA;
use Data::Dumper;
use Mock::Tieable;
use Test::More tests => 71;
use constant CLASS_UNDER_TEST => 'Apache2::AuthCookieDBI';
use constant EMPTY_STRING => q{};
use constant TRUE => 1;
use_ok(CLASS_UNDER_TEST);
test_authen_cred();
$got_session_key
= CLASS_UNDER_TEST->authen_cred( $r, $test_user, $test_password,
@extra_data );
}
Test::More::like(
$got_session_key,
qr/\A ${test_user}:/x,
'authen_cred returns session key starting with username when all OK.'
)
|| Test::More::diag( 'Mock request object contains: ',
Data::Dumper::Dumper($r) );
}
sub test_authen_ses_key {
my $auth_name = 'testing_authen_ses_key';
my $secret_key = 'test secret key';
my $mock_config = {
$auth_name . 'DBI_DSN' => 'test DSN',
$auth_name . 'DBI_SecretKey' => $secret_key,
$auth_name . 'DBI_User' => $auth_name,
$auth_name . 'DBI_Password' => 'test DBI password',
my $hashed_string = 'bad-key-stored-in-ticket'; # not a 32 char hex string
my $encrypted_session_key = join( q{:},
$expected_user, $issue_time, $expire_time,
$session_id, $hashed_string );
CLASS_UNDER_TEST->authen_ses_key( $r, $encrypted_session_key );
like(
$r->log->error->[-1],
qr/ bad \s encrypted \s session_key /xm,
'authen_ses_key() on bad encrypted key'
) || Test::More::diag( '$r contains: ', Data::Dumper::Dumper($r) );
$r = set_up( $auth_name, $mock_config );
my $seperator = q{:};
my $public_part = join( $seperator,
$expected_user, $issue_time, $expire_time,
$session_id, $extra_session_info );
my $plaintext_key = join( $seperator, $public_part, $secret_key );
Test::More::is( $got_group, $expected_group,
"group() checked DB for '$expected_group'" );
Test::More::is( $got_user, $user, "group() checked DB for '$user'" );
}
Test::More::like(
$r->log->info->[2], # there are 2 prior messages from _dbi_connect
qr/user $user was not a member of any of the required groups @groups/,
'group() logs expected info message for user not in any group.'
)
|| Test::More::diag( 'Mock request object contains: ',
Data::Dumper::Dumper($r) );
# Test what happens when the user is in a group
my $group = 'some_group';
{
no warnings qw(once redefine);
local *DBI::Mock::sth::fetchrow_array = sub { return TRUE };
$got_result = CLASS_UNDER_TEST->group( $r, $group );
}
Test::More::is( $got_result, Apache2::Const::OK,
'group() returns OK if user is in a group.' );
my $mock_dbh = CLASS_UNDER_TEST->_dbi_connect($r);
my $expected = [
$mock_config->{"${auth_name}DBI_DSN"},
$mock_config->{"${auth_name}DBI_User"},
$mock_config->{"${auth_name}DBI_Password"}
];
Test::More::is_deeply( $mock_dbh->{'connect_cached_args'},
$expected,
'_dbi_connect() calls connect_cached() with expected arguments.' )
|| Test::More::diag( 'Sensor object contains: ',
Data::Dumper::Dumper($mock_dbh) );
Test::More::is_deeply( $r->log->error(), [],
'_dbi_connect() - no unexpected errors.' );
my $test_dsn = $mock_config->{"${auth_name}DBI_DSN"};
my @expected_error_messages
= ( qq{couldn't connect to $test_dsn for auth realm $auth_name}, );
my @expected_info_messages = (
for ( my $i = 0; $i <= $#expected_info_messages; $i++ ) {
my $got = $got_info_messages[$i];
my $expected_regex = qr/$expected_info_messages[$i]/;
Test::More::like( $got, $expected_regex,
qq{_dbi_connect() logs info for "$expected_info_messages[$i]"} )
|| $got_failures++;
}
if ($got_failures) {
Test::More::diag( 'Mock request object contains: ',
Data::Dumper::Dumper($r) );
}
return TRUE;
}
sub test_user_is_active {
my $auth_name = 'test_user_is_active';
my $r = set_up($auth_name);
my $user = 'TestUser';
# The default config has an empty string for DBI_UserActiveField
t/utils24.t view on Meta::CPAN
use strict;
use warnings;
use English qw(-no_match_vars);
use FindBin qw($Bin);
use lib "$Bin/mock_libs";
use Apache2::RequestRec; # from mocks
use Apache2::Const -compile => qw( AUTHZ_GRANTED AUTHZ_DENIED AUTHZ_DENIED_NO_USER AUTHZ_GENERAL_ERROR);
use Crypt::CBC; # from mocks
use Digest::MD5 qw( md5_hex ); # from mocks
use Digest::SHA;
use Data::Dumper;
use Mock::Tieable;
use Test::More tests => 72;
use constant CLASS_UNDER_TEST => 'Apache2_4::AuthCookieDBI';
use constant EMPTY_STRING => q{};
use constant TRUE => 1;
use_ok(CLASS_UNDER_TEST);
test_authen_cred();
t/utils24.t view on Meta::CPAN
$got_session_key
= CLASS_UNDER_TEST->authen_cred( $r, $test_user, $test_password,
@extra_data );
}
Test::More::like(
$got_session_key,
qr/\A ${test_user}:/x,
'authen_cred returns session key starting with username when all OK.'
)
|| Test::More::diag( 'Mock request object contains: ',
Data::Dumper::Dumper($r) );
}
sub test_authen_ses_key {
my $auth_name = 'testing_authen_ses_key';
my $secret_key = 'test secret key';
my $mock_config = {
$auth_name . 'DBI_DSN' => 'test DSN',
$auth_name . 'DBI_SecretKey' => $secret_key,
$auth_name . 'DBI_User' => $auth_name,
$auth_name . 'DBI_Password' => 'test DBI password',
t/utils24.t view on Meta::CPAN
my $hashed_string = 'bad-key-stored-in-ticket'; # not a 32 char hex string
my $encrypted_session_key = join( q{:},
$expected_user, $issue_time, $expire_time,
$session_id, $hashed_string );
CLASS_UNDER_TEST->authen_ses_key( $r, $encrypted_session_key );
like(
$r->log->error->[-1],
qr/ bad \s encrypted \s session_key /xm,
'authen_ses_key() on bad encrypted key'
) || Test::More::diag( '$r contains: ', Data::Dumper::Dumper($r) );
$r = set_up( $auth_name, $mock_config );
my $seperator = q{:};
my $public_part = join( $seperator,
$expected_user, $issue_time, $expire_time,
$session_id, $extra_session_info );
my $plaintext_key = join( $seperator, $public_part, $secret_key );
t/utils24.t view on Meta::CPAN
Test::More::is( $got_group, $expected_group,
"group() checked DB for '$expected_group'" );
Test::More::is( $got_user, $user, "group() checked DB for '$user'" );
}
Test::More::like(
$r->log->info->[2], # there are 2 prior messages from _dbi_connect
qr/user $user was not a member of any of the required groups @groups/,
'group() logs expected info message for user not in any group.'
)
|| Test::More::diag( 'Mock request object contains: ',
Data::Dumper::Dumper($r) );
# Test what happens when the user is in a group
my $group = 'some_group';
{
no warnings qw(once redefine);
local *DBI::Mock::sth::fetchrow_array = sub { return TRUE };
$got_result = CLASS_UNDER_TEST->group( $r, $group );
}
Test::More::is( $got_result, Apache2::Const::AUTHZ_GRANTED,
'group() returns AUTHZ_GRANTED if user is in a group.' );
t/utils24.t view on Meta::CPAN
my $mock_dbh = CLASS_UNDER_TEST->_dbi_connect($r);
my $expected = [
$mock_config->{"${auth_name}DBI_DSN"},
$mock_config->{"${auth_name}DBI_User"},
$mock_config->{"${auth_name}DBI_Password"}
];
Test::More::is_deeply( $mock_dbh->{'connect_cached_args'},
$expected,
'_dbi_connect() calls connect_cached() with expected arguments.' )
|| Test::More::diag( 'Sensor object contains: ',
Data::Dumper::Dumper($mock_dbh) );
Test::More::is_deeply( $r->log->error(), [],
'_dbi_connect() - no unexpected errors.' );
my $test_dsn = $mock_config->{"${auth_name}DBI_DSN"};
my @expected_error_messages
= ( qq{couldn't connect to $test_dsn for auth realm $auth_name}, );
my @expected_info_messages = (
t/utils24.t view on Meta::CPAN
for ( my $i = 0; $i <= $#expected_info_messages; $i++ ) {
my $got = $got_info_messages[$i];
my $expected_regex = qr/$expected_info_messages[$i]/;
Test::More::like( $got, $expected_regex,
qq{_dbi_connect() logs info for "$expected_info_messages[$i]"} )
|| $got_failures++;
}
if ($got_failures) {
Test::More::diag( 'Mock request object contains: ',
Data::Dumper::Dumper($r) );
}
return TRUE;
}
sub test_user_is_active {
my $auth_name = 'test_user_is_active';
my $r = set_up($auth_name);
my $user = 'TestUser';
# The default config has an empty string for DBI_UserActiveField
( run in 0.516 second using v1.01-cache-2.11-cpan-4d50c553e7e )