view release on metacpan or  search on metacpan

t/autodetect.t  view on Meta::CPAN

#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 13;

use_ok('GD');

# FIXME GD, GD2 broken in some configs: gdImageCreateFromGd2Ptr error 
#SKIP: {
#  skip "No GD support", 1 unless defined &GD::Image::newFromGd;
#  my $gd = GD::Image->new("t/test_data/tile.gd");
#  ok defined($gd), "gd detected";
#}
#SKIP: {
#  skip "No GD2 support", 1 unless defined &GD::Image::newFromGd2;
#  my $gd2 = GD::Image->new("t/test_data/tile.gd2");
#  ok defined($gd2), "gd2 detected";
#}
SKIP: {
  skip "No GIF support", 1 unless defined &GD::Image::newFromGif;
  my $gif = GD::Image->new("t/test_data/tile.gif");
  ok defined($gif), "gif detected";
}
SKIP: {
  skip "No PNG support", 1 unless defined &GD::Image::newFromPng;
  my $png = GD::Image->new("t/test_data/tile.png");
  ok defined($png), "png detected";
}
SKIP: {
  skip "No JPEG support", 1 unless defined &GD::Image::newFromJpeg;
  my $jpeg = GD::Image->new("t/test_data/tile.jpeg");
  ok defined($jpeg), "jpeg detected";
}
SKIP: {
  skip "No TIFF support", 1 unless defined &GD::Image::newFromTiff;
  my $tiff;
  eval { $tiff = GD::Image->new("t/test_data/tile.tiff") };
  if (!$tiff and $@ =~ /gdImageCreateFromTiff error/) {
    ok 1, "Warning: tiff support broken in libgd upstream. GH #62";
  } else {
    ok defined($tiff), "tiff detected";
  }
}
SKIP: {
  skip "No AVIF support", 1 unless defined &GD::Image::newFromAvif;
  my $avif;
  eval {$avif = GD::Image->new("t/test_data/tile.avif")};
  if (!$avif and $@ =~ /gdImageCreateFromAvif error/) {
    ok 1, "Warning: avif support disabled in libgd";
  } else {
    ok defined($avif), "avif detected";
  }
}
SKIP: {
  skip "No JXL support", 1 unless defined &GD::Image::newFromJxl;
  my $jxl;
  eval {$jxl = GD::Image->new("t/test_data/tile.jxl")};
  if (!$jxl and $@ =~ /gdImageCreateFromJxl error/) {
    ok 1, "Warning: jxl support disabled in libgd";
  } else {
    ok defined($jxl), "jxl detected";
  }
}
SKIP: {
  skip "No HEIF support", 1 unless defined &GD::Image::newFromHeif;
  my $heif;
  eval { $heif = GD::Image->new("t/test_data/tile.heif") };
  if (!$heif and $@ =~ /gdImageCreateFromHeif error/) {
    ok 1, "Warning: heif support disabled in libgd";
  } else {
    ok defined($heif), "heif detected";
  }
}
SKIP: {
  skip "No WEBP support", 1 unless defined &GD::Image::newFromWebp;
  my $webp;
  eval {$webp = GD::Image->new("t/test_data/tile.webp")};
  if (!$webp and $@ =~ /gdImageCreateFromWebp error/) {
    ok 1, "Warning: webp support disabled in libgd";
  } else {
    ok defined($webp), "webp detected";
  }
}
SKIP: {
  skip "No WBMP support", 1 unless defined &GD::Image::newFromWBMP;