#!perl

use strict;
use warnings;

use GD;
use Test::More;

my $tests_per_image = 3;
my @widths_to_test = qw{1 10 50 100 500 1000 1500};
my @heights_to_test = qw{1 10 50 100 500 1000 1500};

plan tests => @widths_to_test * @heights_to_test * $tests_per_image;

for my $w (@widths_to_test) {
    for my $h (@heights_to_test) {
        my $png = GD::Image::->new($w, $h)->png();
        # Run tests on $png
    }
}