view release on metacpan or  search on metacpan

t/gd.t  view on Meta::CPAN

use warnings;
use strict;
use utf8;
use FindBin '$Bin';
use Test::More;
use Image::Similar 'load_image';
my $builder = Test::More->builder;
binmode $builder->output,         ":utf8";
binmode $builder->failure_output, ":utf8";
binmode $builder->todo_output,    ":utf8";
binmode STDOUT, ":encoding(utf8)";
binmode STDERR, ":encoding(utf8)";
eval "use GD;";
if ($@) {
    plan (skip_all => "GD not available: $@ error on loading");
}
my $chess100 = GD::Image->newFromPng ("$Bin/images/chess/chess-100.png");
my $is = load_image ($chess100);
ok ($is);
my $chess200 = GD::Image->newFromPng ("$Bin/images/chess/chess-200.png");
my $is200 = load_image ($chess200);
ok ($is200);
cmp_ok ($is->diff ($is200), '<', 0.1);
my $chess300 = GD::Image->newFromPng ("$Bin/images/chess/chess-300.png");
my $is300 = load_image ($chess300);
ok ($is300);
cmp_ok ($is->diff ($is300), '<', 0.1);
cmp_ok ($is200->diff ($is300), '<', 0.1);
my $lfile = "$Bin/../xt/lena-gercke.jpg";
if (-f $lfile) {
    my $lena = GD::Image->newFromJpeg ($lfile);
    my $img = load_image ($lena);
    for my $s (1..10) {
	my $size = $s * 100;
	my $lenax = GD::Image->newFromPng ("$Bin/images/lenagercke/lena-$size.png");
	my $imgx = load_image ($lenax);
	cmp_ok ($img->diff ($imgx), "<", 0.1, "$size of lena looks like original");
    }
    cmp_ok ($is->diff ($img), ">", 0.1,
	    "Lena Gercke doesn't look like a chessboard to me");
}
done_testing ();
exit;