05-Lemonldap-NG-Handler-Vhost.t 1.11 KB
Newer Older
1
2
3
4
5
6
7
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl Lemonldap-NG-Handler-Vhost.t'

#########################

# change 'tests => 1' to 'tests => last_test_to_print';

8
9
10
11
12
13
14
15
package My::Package;

use Test::More tests => 4;

BEGIN {
    use_ok('Lemonldap::NG::Handler::Vhost');
    use_ok('Lemonldap::NG::Handler::Simple');
}
16
17
18
19
20
21

#########################

# Insert your test code below, the Test::More module is use()ed here so read
# its man page ( perldoc Test::More ) for help writing this test script.

22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
our @ISA = qw( Lemonldap::NG::Handler::Vhost Lemonldap::NG::Handler::Simple );
my $h;
$h = bless {}, 'My::Package';

ok(
    $h->locationRulesInit(
        {
            locationRules => {
                www1 => {
                    default => 'accept',
                    '^/no'  => 'deny',
                    'test'  => '$groups =~ /\badmin\b/',
                },
            },
        }
37
38
    ),
    'locationRulesInit'
39
40
41
42
43
);

ok(
    $h->forgeHeadersInit(
        { exportedHeaders => { www1 => { Auth => '$uid', } } }
44
45
    ),
    'forgeHeadersInit'
46
47
);