view release on metacpan or  search on metacpan

t/image.t  view on Meta::CPAN

#!/usr/bin/perl

use Test::More tests => 5;

use strict;
use warnings;

use GRNOC::WebService::Client;
use Image::Magick;
use Data::Dumper;

my $FILENAME = 'image.jpg';

# use the image webservice and set it to use raw output
my $svc = GRNOC::WebService::Client->new( url => 'http://localhost:8529/image.cgi',
                                          raw_output => 1 );

# retrieve the raw image data
my $image = $svc->get_image();

# save it in a temporary file
open(SAVE, ">$FILENAME") or warn($!);
print SAVE $image;
close(SAVE) or warn($!);

# create imagemagick object used to validate image
my $imagick = Image::Magick->new();

# make sure it appears to be a valid jpeg
$imagick->Read($FILENAME);

my $rows = $imagick->Get( 'rows' );
my $columns = $imagick->Get( 'columns' );

ok( $rows == 329, "number of rows" );
ok( $columns == 420, "number of columns" );