-
Notifications
You must be signed in to change notification settings - Fork 2
/
eg3.t
58 lines (48 loc) · 1.2 KB
/
eg3.t
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
#!perl
use strict;
use warnings;
use Test::More tests => 11;
use Authorize::Rule;
my $auth = Authorize::Rule->new(
default => -1,
rules => {
cats => {
bedroom => [ [0] ],
'' => [ [1] ],
},
dogs => {
table => [ [0] ],
bedroom => [ [0] ],
'laundry room' => [ [0] ],
'' => [ [1] ],
},
kitties => {
bedroom => [ [1] ],
'' => [ [0] ],
},
}
);
isa_ok( $auth, 'Authorize::Rule' );
can_ok( $auth, 'is_allowed' );
my @tests = (
[ qw<1 cats kitchen> ],
[ qw<0 cats bedroom> ],
[ qw<1 dogs kitchen> ],
[ qw<0 dogs table> ],
[ qw<0 dogs bedroom> ],
[ qw<0 dogs>, 'laundry room' ],
[ qw<0 kitties kitchen> ],
[ qw<0 kitties table> ],
[ qw<1 kitties bedroom> ],
);
foreach my $test (@tests) {
my ( $success, $entity, $resource ) = @{$test};
my $description = "$entity " . ( $success ? 'can' : 'cannot' ) .
" access $resource";
cmp_ok(
$auth->is_allowed( $entity => $resource ),
'==',
$success,
$description,
);
}