File Coverage

blib/lib/Mojolicious/Plugin/Images/Test.pm

Criterion	Covered	Total	%
statement	47	55	85.4
branch	10	20	50.0
condition			n/a
subroutine	13	14	92.8
pod	4	4	100.0
total	74	93	79.5

package Mojolicious::Plugin::Images::Test;
use Mojo::Base -base;
use 5.20.0;
use experimental 'signatures';

use Exporter 'import';
use Imager;
use Mojo::Asset::Memory;
use Mojo::Upload;
use Mojo::Util 'steady_time';
use Mojo::UserAgent;
use Mojolicious::Controller;


our @EXPORT_OK = (qw(test_upload test_image test_controller uniq_id));
our %EXPORT_TAGS = (all => \@EXPORT_OK);

sub test_image($x = 1024, $y = 800) {
  my $blue = Imager::Color->new(0,   0,   255);
  my $gray = Imager::Color->new(125, 125, 125);

  Imager::->new(xsize => $x, ysize => $y)->box(filled => 1, color => $gray)
    ->box(
    filled => 1,
    color  => $blue,
    box    => [int($x / 4), int($x / 4), int($x / 2), int($y / 2)]
    );
}

sub test_upload($x = 1024, $y = 800) {
  test_image($x, $y)->write(data => \my $data, type => 'jpeg');
  my $asset = Mojo::Asset::Memory->new->add_chunk($data);
  my $upload = Mojo::Upload->new(asset => $asset);
}

sub test_controller($x = 1024, $y = 800, $name = 'image') {
  test_image($x, $y)->write(data => \my $data, type => 'jpeg');
  my $tx = Mojo::UserAgent->new->build_tx(
    POST => '/' => form => {$name => {content => $data}});
  Mojolicious::Controller->new->tx($tx);
}

sub uniq_id {
  my $id = steady_time . rand;
  $id =~ s/\./-/g;
  $id;
}

1;

__END__