view release on metacpan or  search on metacpan

t/imagemagick.t  view on Meta::CPAN

#!perl -w

use Test::More tests => 7;
use File::Basename;
use Cwd 'abs_path';

BEGIN {
    use_ok( 'Tempest' );
}

SKIP: {
    # skip entire test file if Image::Magick module is not available
    eval { require Image::Magick };
    skip "Image::Magick module not installed", 6 if $@;
    diag("Testing Image::Magick $Image::Magick::VERSION");
    
    # remove output file if it exists
    if(-f dirname(__FILE__) . '/data/output_imagemagick.png') {
        unlink(dirname(__FILE__) . '/data/output_imagemagick.png');
    }
    
    $instance = new Tempest(
        'input_file' => dirname(__FILE__) . '/data/screenshot.png',
        'output_file' => dirname(__FILE__) . '/data/output_imagemagick.png',
        'coordinates' => [
            [205,196],
            [208,205],
            [211,198],
            [218,205],
            [208,205],
            [208,205],
            [208,205],
            [388,201],
            [298,226],
            [369,231],
            [343,225],
            [345,14],
            [345,14],
        ],
        'image_lib' => Tempest::LIB_MAGICK,
        'overlay' => 1
    );
    $result = $instance->render();
    ok($result, 'Render method should return true');
    
    ok(-f dirname(__FILE__) . '/data/output_imagemagick.png', 'Output file should exist');
    
    SKIP: {
        $result = _compare(5, dirname(__FILE__) . '/data/output_imagemagick.png');
        skip 'Compare utility not available', 4 if ! defined $result;
        like($result, qr/^0\s+/, 'Output image should resemble the image we expect');
        
        my $a_test = new Tempest(
            'input_file' => dirname(__FILE__) . '/data/screenshot.png',
            'output_file' => dirname(__FILE__) . '/data/opacity_imagemagick_a.png',
            'image_lib' => Tempest::LIB_MAGICK,
            'coordinates' => [
                [100,100],
                [200,200], [200,200],
                [300,300], [300,300], [300,300],
            ],
        );
        $a_test->render();
        ok(-f dirname(__FILE__) . '/data/opacity_imagemagick_a.png', 'Output file for "a" test should exist');
        
        my $b_test = new Tempest(
            'input_file' => dirname(__FILE__) . '/data/screenshot.png',
            'output_file' => dirname(__FILE__) . '/data/opacity_imagemagick_b.png',
            'image_lib' => Tempest::LIB_MAGICK,
            'coordinates' => [
                [100,100], [100,100],
                [200,200], [200,200], [200,200],
                [300,300], [300,300], [300,300], [300,300],
            ],
        );