CPAN::Groonga

 => 95;
use Imager;
use Imager::Test qw(is_color3 is_image is_imaged test_image_double test_image isnt_image is_image_similar);

#$Imager::DEBUG=1;

-d "testout" or mkdir "testout";

Imager::init('log

tted", "check copy test image is paletted");
  ok($impal->flip(dir => "h"), "flip paletted h");
  isnt_image($impal, $imcp, "check it changed");
  ok($impal->flip(dir => "v"), "flip paletted v");
  ok

test is moved to ./t subdirectory.)
use Test::More tests => 25;

use Imager;

use Imager::Test qw(isnt_image is_image);

-d "testout" or mkdir "testout";

Imager->open_log(log => "testout/t36oofont.lo

size => 20, ysize => 20);
      my $cmp = $work->copy;
      $work->rubthrough(src => $im);
      isnt_image($work, $cmp, "make sure something was drawn");
    }
  }

  { # RT 73359
    # non-AA font 

r equal images");
    ok($im->setpixel(x => 0, y => 1, color => $red), "modify first image");
    isnt(i_img_diff($im->{IMG}, $im2->{IMG}), 0, "basic i_img_diff test for inequal images");
  }
  {
    

s => 4, data => [ 0, 0, 0, 255 ], width => 1), 4,
       "set the extra samples on a pixel");
    isnt(i_img_diff($im->{IMG}, $im2->{IMG}), 0, "extras i_img_diff test for inequal images");

    my $im

GIN { use_ok("Imager", ':handy'); }

use Imager::Test qw(image_bounds_checks test_image is_color3 isnt_image is_color4 is_fcolor3
                    test_image_pal to_linear_srgb to_linear_srgbf is_a

, "convert to mono with error diffusion");
  my $blank = Imager->new(xsize => 10, ysize => 10);
  isnt_image($palim, $blank, "make sure paletted isn't all black");
}

{ # check validation of palette e

be 8 entries");
    isnt($bbox[6], $bbox[2], "different advance width from pos width");
    print "# @bbox\n";
    my $bbox = $hcfont->bounding_box(string=>"/", size=>100);
    isnt($bbox->pos_width, 

16-bit oo image");
check_vtable($oo16img, "16-bit vtable");
is($oo16img->bits,  16, "test bits");
isnt($oo16img->is_bilevel, "should not be considered mono");
# make sure of error handling
ok(!Imager-

6-bit linear vtable");
is($oo16img->bits,  16, "test bits");
ok($oo16img->linear, "it's linear");
isnt($oo16img->is_bilevel, "should not be considered mono");
# make sure of error handling
ok(!Imager-

linear vtable");
is($oo16img->bits,  "double", "test bits");
ok($oo16img->linear, "it's linear");
isnt($oo16img->is_bilevel, "should not be considered mono");
# make sure of error handling
ok(!Imager-