Isn't numeric In subroutine?!?

[zackiv31]

Here's my code, I'm trying to read in an image, and I get a weird error:

/usr/bin/perl

use strict;
use warnings;

#use Test::More plan => 1;
use Test::Image;

print "Hello\n";

my $i = Test::Image->new(Image::Imlib2->new("circle.jpg"));
ok($i, "image ok");

I get this error output:

Hello
Argument "circle.jpg" isn't numeric in subroutine entry at ./recognize.pl line 11.
***** Imlib2 Developer Warning ***** :
        This program is calling the Imlib call:

        imlib_image_set_has_alpha();

        With the parameter:

        image

        being NULL. Please fix your program.
No image passed at ./recognize.pl line 11
# Looks like your test died before it could output anything.

I got the code from here:

http://search.cpan.org/~fotango/Test-Image-0.02/lib/Test/Image.pm

and yes, "circle.jpg" does exist in the current directory.

 

[KevinADC]

mabe you need to add some more code to the script.

$i->size(400,300); # (see also $i->width, $i->height)

just a guess, I have never used nor even heard of this module before. It seems the point is to test something about the image, your code is not doing that, so maybe the imlib_image_set_has_alpha() function is expecting some numeric data. This is a very new module and the author apparently wrote it while on an airplane (see "More Bugs" section of module) so maybe he forgot to test it.

------------------------------------------
- Kevin, perl coder unexceptional!

 

[zackiv31]

I think it might have to do with that planning stuff, the use I commented out... I copied their code directly and get this error now:

plan() doesn't understand plan 1 at ./test.pl line 3.
BEGIN failed--compilation aborted at ./test.pl line 3.
# Looks like your test died before it could output anything.