handle convert where using expander wrapping

[scpubgit/Q-Branch.git] / lib / SQL / Abstract / Test.pm

diff --git a/lib/SQL/Abstract/Test.pm b/lib/SQL/Abstract/Test.pm
index 71fba6c..c642f42 100644 (file)
--- a/lib/SQL/Abstract/Test.pm
+++ b/lib/SQL/Abstract/Test.pm
@@ -24,9 +24,9 @@ use SQL::Abstract::Tree;
       my $e1 = $self->$orig(@args);
       my $e2 = $self->$orig($e1);
       (our $tb)->is_eq(
-        (map Data::Dumper::Concise::Dumper($_), $e1, $e2),
+        (map Data::Dumper::Concise::Dumper($_), $e2, $e1),
         'expand_expr stability ok'
-      );
+      );# or die;
       return $e1;
     };
     no strict 'refs'; no warnings 'redefine';