Re: Re: Test::More - equal_set

[edoc]

ok, knew there had to be something out there... Test::Deep using 'bag' (or set maybe, they look the same in the docs..) Unfortunately it doesn't seem to be a standard Perl module.

#!/usr/bin/perl

use Test::More qw(no_plan);
use Test::Deep;

my (@this,@that);

@this = ( { fred => 1 }, { wilma => 1 } );
@that = ( { wilma => 1 }, { fred => 1 } );

cmp_deeply(\@this, bag(@that), 'cmp_deeply Deep Order Diff');

cheers,

J

[brewer]

Thanks again, It looks like I don't get to write anything - cmp_bag() from Test::Deep gives me one more passed test.

I'm really starting to see the value in writing tests - I may try writing the tests before the code for the next itch that I scratch.

Kind regards,

brewer