CPAN::Groonga

ict;
use Test::More;
use Imager ':all';
use Imager::Test qw(diff_text_with_nul is_color3 is_image isnt_image);
use Imager::Font::T1;
use Cwd qw(getcwd abs_path);

#$Imager::DEBUG=1;

ok($Imager::forma

ance width
    my @bbox = $font->bounding_box(string=>'/', size=>100);
    print "# @bbox\n";
    isnt($bbox[2], $bbox[5], "different advance to pos_width");

    # names
    my $face_name = $font->{t

@bbox = $font->bounding_box(string=>"/", size=>100);
    is(@bbox, 8, "should be 8 entries");
    isnt($bbox[6], $bbox[2], "different advance width");
    my $bbox = $font->bounding_box(string=>"/", s

#!/usr/bin/perl -w
use strict;
use Imager;
use Imager::Test qw(isnt_image);
use Test::More tests => 14;

# extracted from t/t36oofont.t

my $fontname_pfb = "fontfiles/dcr10.pfb";

my $green=Imager::Co

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

{ # open a non-font as a font (test o