1 files changed, 16 insertions, 0 deletions
diff --git a/t/duplicates.t b/t/duplicates.t
new file mode 100644
index 0000000..e2636fb
--- /dev/null
+++ b/t/duplicates.t
@@ -0,0 +1,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');