From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sat, 20 Apr 2019 02:41:54 +0000 (+0000)
Subject: better expand stability testing
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b5fac7747b9c3e51d415a03bddabee45fa59109e;p=scpubgit%2FQ-Branch.git

better expand stability testing
---

diff --git a/lib/SQL/Abstract/Test.pm b/lib/SQL/Abstract/Test.pm
index c642f42..fcd3aab 100644
--- a/lib/SQL/Abstract/Test.pm
+++ b/lib/SQL/Abstract/Test.pm
@@ -22,11 +22,19 @@ 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($_), $e2, $e1),
+        $d2, $d1,
         'expand_expr stability ok'
-      );# or die;
+      ) or do {
+        require Path::Tiny;
+        Path::Tiny->new('e1')->spew($d1);
+        Path::Tiny->new('e2')->spew($d2);
+        die "Wrote e1 and e2, bailing out";
+      };
       return $e1;
     };
     no strict 'refs'; no warnings 'redefine';