File Coverage

lib/JMAP/Validation/Generators/File.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	25	26	96.1

package JMAP::Validation::Generators::File;

use strict;
use warnings;

use JMAP::Validation::Generators::String;
use JSON::Typist;

sub generate {
  my $blobId = 1;

  my @files;

  foreach my $type (JMAP::Validation::Generators::String->generate(), undef) {
    foreach my $name (JMAP::Validation::Generators::String->generate(), undef) {
      foreach my $size (JSON::Typist::Number->new(int(rand(2**32))), undef) {
        push @files, {
          blobId => JMAP::Validation::Generators::String->generate(),
          type   => $type,
          name   => $name,
          size   => $size,
        };

        $blobId++;
      }
    }
  }

  return @files;
}

1;