...
|
...
|
@@ -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") };
|