t/duplicates.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#!/usr/bin/perl -w

use strict;
use warnings;
# use diagnostics;

use Test::More tests => 2;

use Data::Compare;

my $z = 0;
ok(Compare([\$z, \$z], [\$z, \$z]), 'Can compare duplicated array data');
ok(Compare(
    { a => \$z, b => \$z },
    { a => \$z, b => \$z }
), 'Can compare duplicated hash data');