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

Owner: Nobody in particular
Requestors: MUIR [...]

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.
text/x-perl 690b
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: [ #75662] Test deep fails to detect difference in self-referencial hash
Date: Sat, 10 Mar 2012 10:37:50 +0900
To: bug-Test-Deep [...]
From: Fergal Daly <fergal [...]>
Download (untitled) / with headers
text/plain 222b
I get fergal@notpot:~$ perl Downloads/ 1..1 not ok 1 - these are different # Failed test 'these are different' # at Downloads/ line 10. # Looks like you failed 1 test of 1. which is the expected behaviour.
Download (untitled) / with headers
text/plain 183b
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.

This service is sponsored and maintained by Best Practical Solutions and runs on infrastructure.

Please report any issues with to