«

Hi all,

I am trying to write a test and the result expected from the module is
a list of lists. I will use Test module to check if the result is the
same than the expected.

Anyone know how this can be done? I could compare value by value or
parse the Data:umper value into an String but I am sure this is
something trivial to do in another way. As trivial that I can find how
on the reference.


Thanks for helping me
J

At 2004-02-26 08:25 -0800, John wrote:
> I am trying to write a test and the result expected from the module is
> a list of lists. I will use Test module to check if the result is the
> same than the expected.
>

Do you mean something like this:

#!/usr/bin/perl
use strict;
use warnings;
use Test::Simple tests => 2;

sub test {
grep(ref eq 'ARRAY', @_) == @_
}

ok(test returns_list_of_arrayrefs());
ok(test returns_something_else());

sub returns_list_of_arrayrefs {
([1, 2, 3], [4, 5], [])
}

sub returns_something_else {
([1, 2, 3], 45, [])
}

John <> wrote in comp.lang.perl.misc:
> Hi all,
>
> I am trying to write a test and the result expected from the module is
> a list of lists. I will use Test module to check if the result is the
> same than the expected.
>
> Anyone know how this can be done? I could compare value by value or
> parse the Data:umper value into an String but I am sure this is
> something trivial to do in another way. As trivial that I can find how
> on the reference.

Try Test::More (a standard module, like Test). It has methods that help
with this kind of thing. eq_array should be what you're looking for.

Anno

On Thu, 26 Feb 2004 08:25:05 -0800, John wrote:
> I am trying to write a test and the result expected from the module is a
> list of lists. I will use Test module to check if the result is the same
> than the expected.

Have you had a look at these modules?

Test::More
Test:ifferences

You can find them at CPAN:

<http://www.cpan.org/>


--
Tore Aursand <>
"First, God created idiots. That was just for practice. Then He created
school boards." -- Mark Twain