Re^4: Stopping tests

The CoventryCathedral.png image is 1584×625 pixels. I'd suggest creating an image of maybe 15x6 pixels (or similar small size) for testing

Ah...I see!

I'm reluctant to create a smaller image because in the real world, the module needs to work with all sizes of images. That's why the two test images are different sizes. Some test configurations fail with the larger image but pass with the smaller image. If I use a smaller test image, the test may pass but the module fail when used to process a larger image.

Comment on Re^4: Stopping tests Download Code

Replies are listed 'Best First'.
Re^5: Stopping tests by kcott (Archbishop) on Sep 25, 2023 at 18:52 UTC
Apologies for the very tardy reply. I've been tied up with all sorts of things of late. I had intended to respond but that seems to have fallen through the cracks (just noticed it whilst reviewing some of my recent posts). Anyway, I wouldn't include any images with the distribution. I'd create them on the fly: the size issue disappears and there's much more flexibility. Something like this (untested) code: `#!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 } }` [download] — Ken	[reply] [d/l]

Replies are listed 'Best First'.

Re^5: Stopping tests
by kcott (Archbishop) on Sep 25, 2023 at 18:52 UTC

Apologies for the very tardy reply. I've been tied up with all sorts of things of late. I had intended to respond but that seems to have fallen through the cracks (just noticed it whilst reviewing some of my recent posts).

Anyway, I wouldn't include any images with the distribution. I'd create them on the fly: the size issue disappears and there's much more flexibility. Something like this (untested) code:

#!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
    }
}
[download]

— Ken

[reply]
[d/l]