From: Arthur Axel 'fREW' Schmidt <frioux@gmail.com>
Date: Mon, 21 Mar 2011 23:26:51 +0000 (-0500)
Subject: Show differing data on failure
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2292bd08965dcb942f24bae8745c2805577a2822;p=dbsrgits%2FDBIx-Class.git

Show differing data on failure
---

diff --git a/t/sqlmaker/op_dt.t b/t/sqlmaker/op_dt.t
index eb8dacc..7f7f59c 100644
--- a/t/sqlmaker/op_dt.t
+++ b/t/sqlmaker/op_dt.t
@@ -9,6 +9,7 @@ use DBIC::SqlMakerTest;
 use DateTime;
 use DBIx::Class::SQLMaker::MSSQL;
 use Try::Tiny;
+use Data::Dumper::Concise;
 
 use DBICTest;
 
@@ -585,7 +586,12 @@ for my $t (@tests) {
 
           my $msg = ($t->{msg} ? "$t->{msg} ($db actually pulls expected data)" : '');
           try {
-             is_deeply [ $my_rs->hri_dump->all ], $hri, $msg;
+             my $got = [ $my_rs->hri_dump->all ];
+             my $success = is_deeply $got, $hri, $msg;
+             unless ($success) {
+                warn "$db: $t->{msg} got:      " . Dumper $got;
+                warn "$db: $t->{msg} expected: " . Dumper $hri;
+             }
           } catch {
              ok 0, $msg . " $_";
           }