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