Skip Menu |

Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

This queue is for tickets about the Test-Deep CPAN distribution.

Report information
The Basics
Id: 75662
Status: rejected
Priority: 0/
Queue: Test-Deep

People
Owner: Nobody in particular
Requestors: MUIR [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: 0.106
Fixed in: (no value)



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");
Subject: Re: [rt.cpan.org #75662] Test deep fails to detect difference in self-referencial hash
Date: Sat, 10 Mar 2012 10:37:50 +0900
To: bug-Test-Deep [...] rt.cpan.org
From: Fergal Daly <fergal [...] esatclear.ie>
I get fergal@notpot:~$ perl Downloads/x3.pl 1..1 not ok 1 - these are different # Failed test 'these are different' # at Downloads/x3.pl line 10. # Looks like you failed 1 test of 1. which is the expected behaviour.
Sorry, I wasn't reading it right. The two refs compared as equal by Test::Deep in a different test, but one of them was tied. If I can I'll submit a new bug that shows the problem.