#!/usr/bin/perl

use Test::More qw(no_plan);

my (@this,@that);

@this = ('Fred','Wilma');
@that = ('Fred','Wilma');
ok(eq_set(\@this, \@that), 'Shallow Order Same');

@this = ('Fred','Wilma');
@that = ('Wilma','Fred');
ok(eq_set(\@this, \@that), 'Shallow Order Diff');

@this = ( { fred => 1 }, { wilma => 1 } );
@that = ( { fred => 1 }, { wilma => 1 } );
ok(eq_set(\@this, \@that), 'Deep Order Same');

@this = ( { fred => 1 }, { wilma => 1 } );
@that = ( { wilma => 1 }, { fred => 1 } );
ok(eq_set(\@this, \@that), 'Deep Order Diff');

__END__

prints:
ok 1 - Shallow Order Same
ok 2 - Shallow Order Diff
ok 3 - Deep Order Same
not ok 4 - Deep Order Diff
#     Failed test (testmore.pl at line 21)
1..4
# Looks like you failed 1 tests of 4.