#!/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');