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
|
use Test::More tests => 2;
use RDF::ACL;
my $acl = RDF::ACL->new;
my $authid = $acl->allow(
'webid' => ['http://example.com/joe#me'],
'container' => 'http://example.com/private/',
'level' => ['read']
);
$acl->created(
'http://example.com/private/document',
'http://example.com/private/'
);
ok($acl->check(
'http://example.com/joe#me',
'http://example.com/private/document',
'Read'),
"Access granted because of container's default authorisation"
);
my @reasons = $acl->why(
'http://example.com/joe#me',
'http://example.com/private/document',
'Read'
);
ok($authid ne $reasons[0], "Default authorisation is cloned");
|
