File: 04basic.t

package info (click to toggle)
libauthen-simple-cdbi-perl 0.2-3
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster, sid, stretch
  • size: 100 kB
  • ctags: 8
  • sloc: perl: 99; sql: 12; makefile: 3
file content (32 lines) | stat: -rw-r--r-- 1,271 bytes parent folder | download | duplicates (2)
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' );