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         4  
  4         95  
4 4     4   13 use warnings;
  4         3  
  4         75  
5              
6 4     4   12 use JMAP::Validation::Tests::Array;
  4         4  
  4         69  
7 4     4   1250 use JMAP::Validation::Tests::Object;
  4         8  
  4         89  
8 4     4   15 use JMAP::Validation::Tests::String;
  4         4  
  4         336  
9              
10             sub is_ContactGroup {
11 4     4 0 4 my ($value) = @_;
12              
13 4 50       8 return unless JMAP::Validation::Tests::Object::is_object($value);
14 4 50       15 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     24 && JMAP::Validation::Tests::String::has_at_most_256_bytes($value->{name});
      33        
20              
21 4 50       30 return unless JMAP::Validation::Tests::String::is_array_of_ids($value->{contactIds});
22              
23 4         11 return 1;
24             }
25              
26             1;