Showing 1 changed files with 6 additions and 5 deletions
+6 -5
t/common.t
... ...
@@ -4785,11 +4785,11 @@ $dbi->execute($create_table2);
4785 4785
 $dbi->insert({$key1 => 1, $key3 => 5}, table => $table2);
4786 4786
 $rows = $dbi->select(
4787 4787
   table => $table1,
4788
-  column => "${q}$table1$p.${q}$key1$p as ${q}${table1}_$key1$p, ${q}$table2$p.${q}$key1$p as ${q}${table2}_$key1$p, ${q}$key2$p, ${q}$key3$p",
4788
+  column => $dbi->_tq($table1) . ".${q}$key1$p as ${q}" . u("${table1}_$key1") . "$p, " . $dbi->_tq($table2) . ".${q}$key1$p as ${q}" . u("${table2}_$key1") . "$p, ${q}$key2$p, ${q}$key3$p",
4789 4789
   where   => {"$table1.$key2" => 2},
4790
-  join  => ["left outer join ${q}$table2$p on ${q}$table1$p.${q}$key1$p = ${q}$table2$p.${q}$key1$p"],
4790
+  join  => ["left outer join " . $dbi->_tq($table2) . " on " . $dbi->_tq($table1) . ".${q}$key1$p = " . $dbi->_tq($table2) . ".${q}$key1$p"],
4791 4791
 )->all;
4792
-is_deeply($rows, [{"${table1}_$key1" => 1, "${table2}_$key1" => 1, $key2 => 2, $key3 => 5}],
4792
+is_deeply($rows, [{u"${table1}_$key1" => 1, u"${table2}_$key1" => 1, $key2 => 2, $key3 => 5}],
4793 4793
   'quote');
4794 4794
 
4795 4795
 
... ...
@@ -4806,13 +4806,14 @@ where t1.$key2 = (
4806 4806
 )
4807 4807
 ) $table3 on $table1.$key1 = $table3.$key1
4808 4808
 EOS
4809
+$sql =~ s/\Qmain.table3/main_table3/g;
4809 4810
 $join = [$sql];
4810 4811
 $rows = $dbi->select(
4811 4812
   table => $table1,
4812
-  column => "$table3.$key1 as ${table3}__$key1",
4813
+  column => u($table3) . ".$key1 as " . u2("${table3}__$key1"),
4813 4814
   join  => $join
4814 4815
 )->all;
4815
-is_deeply($rows, [{"${table3}__$key1" => 1}]);
4816
+is_deeply($rows, [{u2"${table3}__$key1" => 1}]);
4816 4817
 
4817 4818
 $dbi = DBIx::Custom->connect;
4818 4819
 eval { $dbi->execute("drop table $table1") };