make stability test try and invoke diff

diff --git a/lib/SQL/Abstract/Test.pm b/lib/SQL/Abstract/Test.pm
index 0d49100..4f12e06 100644 (file)
--- a/lib/SQL/Abstract/Test.pm
+++ b/lib/SQL/Abstract/Test.pm
@@ -33,7 +33,8 @@ use SQL::Abstract::Tree;
         require Path::Tiny;
         Path::Tiny->new('e1')->spew($d1);
         Path::Tiny->new('e2')->spew($d2);
-        die "Wrote e1 and e2, bailing out";
+        system('diff -u e1 e2 1>&2');
+        die "Differences between e1 and e2, bailing out";
       };
       return $e1;
     };