File Coverage

lib/JMAP/Validation/Tests/ContactGroup.pm
Criterion Covered Total %
statement 21 21 100.0
branch 4 8 50.0
condition 2 6 33.3
subroutine 6 6 100.0
pod 0 1 0.0
total 33 42 78.5


line stmt bran cond sub pod time code
1             package JMAP::Validation::Tests::ContactGroup;
2              
3 4     4   13 use strict;
  4         5  
  4         88  
4 4     4   11 use warnings;
  4         3  
  4         68  
5              
6 4     4   12 use JMAP::Validation::Tests::Array;
  4         2  
  4         87  
7 4     4   1173 use JMAP::Validation::Tests::Object;
  4         8  
  4         92  
8 4     4   17 use JMAP::Validation::Tests::String;
  4         3  
  4         318  
9              
10             sub is_ContactGroup {
11 4     4 0 4 my ($value) = @_;
12              
13 4 50       7 return unless JMAP::Validation::Tests::Object::is_object($value);
14 4 50       10 return unless JMAP::Validation::Tests::String::is_id($value->{id});
15              
16             return unless
17             JMAP::Validation::Tests::String::is_string($value->{name})
18             && JMAP::Validation::Tests::String::has_at_least_one_character($value->{name})
19 4 50 33     28 && JMAP::Validation::Tests::String::has_at_most_256_bytes($value->{name});
      33        
20              
21 4 50       28 return unless JMAP::Validation::Tests::String::is_array_of_ids($value->{contactIds});
22              
23 4         8 return 1;
24             }
25              
26             1;