1#!/usr/bin/perl -w
2use strict;
3use Test::More tests => 8;
4
5use_ok('Image::Imlib2');
6
7my $i = Image::Imlib2->load("t/blob.png");
8isa_ok($i, 'Image::Imlib2');
9my($x, $y, $w, $h) = $i->autocrop_dimensions;
10is($x, 128);
11is($y, 8);
12is($w, 123);
13is($h, 200);
14
15my $cropped = $i->autocrop;
16is($cropped->width, 123);
17is($cropped->height, 200);
18$cropped->save("t/cropped.png");
19
20