converting lists to array for testing purposes

[John]

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

 

[fifo]

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, [])
}

 

[Anno Siegel]

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

 

[Tore Aursand]

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/>