X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FAbstract%2FTest.pm;h=e163f2c5987a0758e96bce06276e752b45f96d83;hb=6aac9987ce7af38ba7ff8271a59aa68cdc9b192e;hp=71fba6c6585b97d9c7d65fbe502a19496d2b0f46;hpb=454e6cbdff68ff2ebe4575f785e144e468dc1820;p=scpubgit%2FQ-Branch.git

diff --git a/lib/SQL/Abstract/Test.pm b/lib/SQL/Abstract/Test.pm
index 71fba6c..e163f2c 100644
--- a/lib/SQL/Abstract/Test.pm
+++ b/lib/SQL/Abstract/Test.pm
@@ -22,11 +22,20 @@ use SQL::Abstract::Tree;
     my $wrapped = sub {
       my ($self, @args) = @_;
       my $e1 = $self->$orig(@args);
+      return $e1 if our $Stab_Check_Rec;
+      local $Stab_Check_Rec = 1;
       my $e2 = $self->$orig($e1);
+      my ($d1, $d2) = map Data::Dumper::Concise::Dumper($_), $e1, $e2;
       (our $tb)->is_eq(
-        (map Data::Dumper::Concise::Dumper($_), $e1, $e2),
+        $d2, $d1,
         'expand_expr stability ok'
-      );
+      ) or do {
+        require Path::Tiny;
+        Path::Tiny->new('e1')->spew($d1);
+        Path::Tiny->new('e2')->spew($d2);
+        system('diff -u e1 e2 1>&2');
+        die "Differences between e1 and e2, bailing out";
+      };
       return $e1;
     };
     no strict 'refs'; no warnings 'redefine';