Changeset 1048 for trunk/LATMOS-Accounts/t

Timestamp:

06/01/12 08:25:19 (12 years ago)

Author:

nanardon

Message:

• split L::A::Acls module using proper perl fs

File:

• trunk/LATMOS-Accounts/t/21_acls.t (modified) (1 diff)

trunk/LATMOS-Accounts/t/21_acls.t

@@ -1 +1 @@
 use strict;
 use warnings;
-use Test::More tests => 14;
+use Test::More tests => 15;
 
 use_ok('LATMOS::Accounts::Acls');
+use_ok('LATMOS::Accounts::Acls::Acl');
 
 {
-    ok(my $acl = LATMOS::Accounts::Acls::acl->new('user.uid', [ 'user1: read' ]),
+    ok(my $acl = LATMOS::Accounts::Acls::Acl->new('user.uid', [ 'user1: read' ]),
         "can create single acl");
     is($acl->match(fakeobject->new('user', 'user1'), 'uid', 'r', 'user1'), 1, "acl match");