fix arrayref tables to use correct join generation style

diff --git a/lib/SQL/Abstract/Converter.pm b/lib/SQL/Abstract/Converter.pm
index bc3efed..0439b1c 100644 (file)
--- a/lib/SQL/Abstract/Converter.pm
+++ b/lib/SQL/Abstract/Converter.pm
@@ -617,7 +617,8 @@ sub _table_to_dq {
     while (my $x = shift @f) {
       $dq = {
         type => DQ_JOIN,
-        join => [ $dq, $self->_table_to_dq($x) ]
+        left => $dq,
+        right => $self->_table_to_dq($x),
       };
     }
     $dq;

diff --git a/t/01generate.t b/t/01generate.t
index a32fbe6..126a36d 100644 (file)
--- a/t/01generate.t
+++ b/t/01generate.t
@@ -5,6 +5,7 @@ use warnings;
 use Test::More;
 use Test::Warn;
 use Test::Exception;
+use Data::Dumper;
 
 use SQL::Abstract::Test import => ['is_same_sql_bind'];
 
@@ -585,7 +586,10 @@ for my $t (@tests) {
         );
       }
       else {
-        $cref->();
+        unless (eval { $cref->(); 1 }) {
+          die "Unexpected exception thrown for structure:\n"
+              .Dumper($t)."Exception was: $@";
+        }
       }
       is_same_sql_bind(
         $stmt,