1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
#!perl
use strict;
use warnings;
use lib 't/lib';
use Test::More;
unless ( eval "use DBD::SQLite 1.0; 1;" ) {
plan skip_all => 'needs DBD::SQLite >= 1.0 for testing';
}
plan tests => 11;
use_ok('Authen::Simple::CDBI');
use_ok('MyClass');
my $cdbi = Authen::Simple::CDBI->new(
class => 'MyClass',
username => 'username',
password => 'password'
);
ok( $cdbi, 'Got instance' );
ok( $cdbi->authenticate( 'crypt', 'crypt' ), 'Successfully authenticated using crypt() with Traditional DES' );
ok( $cdbi->authenticate( 'md5', 'md5' ), 'Successfully authenticated using $1$' );
ok( $cdbi->authenticate( 'plain', 'plain' ), 'Successfully authenticated using plain' );
ok( $cdbi->authenticate( 'sha', 'sha' ), 'Successfully authenticated using {SHA}' );
ok( $cdbi->authenticate( 'smd5', 'smd5' ), 'Successfully authenticated using {SMD5}' );
ok( $cdbi->authenticate( 'sha-1 hex', 'sha-1 hex' ), 'Successfully authenticated using SHA-1 hex' );
ok( $cdbi->authenticate( 'sha-1 base64', 'sha-1 base64' ), 'Successfully authenticated using SHA-1 Base64' );
ok( ! $cdbi->authenticate( 'bogus', 'bogus' ), 'Failed to authenticate user bogus' );
|
