Subject: | Test deep fails to detect difference in self-referencial hash |
Test enclosed.
Subject: | x3.pl |
use Test::More tests => 1;
use Test::Deep;
my $c1={};
$c1->{'FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23'} = $c1;
my $c2 ={};
$c2->{'FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23FOO23'} = $c2;
ok(eq_deeply($c1,$c2), "these are different");