File Coverage

inc/WebService/Cmis/Test/ACE.pm

Criterion	Covered	Total	%
statement	3	3	100.0
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	4	4	100.0

package WebService::Cmis::Test::ACE;
use base qw(WebService::Cmis::Test);

use strict;
use warnings;

use Test::More;
use Error qw(:try);
use WebService::Cmis qw(:collections :utils :relations :namespaces :contenttypes);
use WebService::Cmis::ACE;

sub test_ACE_empty : Test(2) {
  my $this = shift;

  my $acl = new WebService::Cmis::ACE();
  ok(defined $acl);
  isa_ok($acl, 'WebService::Cmis::ACE');
}

sub test_ACE_create : Test(8) {
  my $this = shift;

  my $ace = new WebService::Cmis::ACE(
    principalId => 'jdoe',
    direct => 'true',
    permissions => 'cmis:write'
  );

  ok(defined $ace->{principalId});
  is($ace->{principalId}, 'jdoe');

  ok(defined $ace->{direct});
  is($ace->{direct}, 'true');

  ok(defined $ace->{permissions});
  is(ref($ace->{permissions}), 'ARRAY');
  is(scalar(@{$ace->{permissions}}), 1);
  is($ace->{permissions}[0], 'cmis:write');
}

1;