1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
#!/bin/env perl
use strict;
use warnings;
use Test::More ('no_plan');
diag('Test of deprecated Test::More functions provided for compatibility completeness.');
my $foo = [1,'B','third'];
my $oof = ['third','B',1];
my $foo_h = {0=>1,1=>'B',2=>'third'};
my $oof_h = {0=>'third',1=>'B',2=>1};
my $bar = [23,42,];
my $rab = [42,23,];
my $bar_h = {'q'=>23,'Y'=>42,};
my $rab_h = {'Y'=>42,'q'=>23,};
ok(eq_array($foo,$oof),'eq_array() with misordered array is ok');
ok(eq_array($bar,$rab),'eq_array() with misordered assoc is ok');
ok(eq_hash($foo_h,$oof_h),'eq_hash() with misordered array is ok');
ok(eq_hash($bar_h,$rab_h),'eq_hash() with misordered assoc is ok');
ok(eq_set($foo,$oof),'eq_set() with misordered array is ok');
ok(eq_set($bar,$rab),'eq_set() with misordered assoc is ok');
done_testing();
|