... | ... |
@@ -1,7 +1,6 @@ |
1 | 1 |
0.1738 |
2 | 2 |
- insert method id value is not copied to parameter |
3 | 3 |
if the key exists in parameter |
4 |
- |
|
5 | 4 |
0.1737 |
6 | 5 |
- micro optimization |
7 | 6 |
- fixed DEBUG messsage bug |
... | ... |
@@ -2323,6 +2323,21 @@ is($dbi->select(table => $table1)->one->{$key2}, 4); |
2323 | 2323 |
is($dbi->select(table => $table1)->one->{$key3}, 3); |
2324 | 2324 |
is_deeply($param, {$key3 => 3, $key2 => 4}); |
2325 | 2325 |
|
2326 |
+$dbi = DBIx::Custom->connect; |
|
2327 |
+eval { $dbi->execute("drop table $table1") }; |
|
2328 |
+$dbi->execute($create_table1_2); |
|
2329 |
+$param = {$key3 => 3, $key2 => 4}; |
|
2330 |
+$DB::single = 1; |
|
2331 |
+$query = $dbi->insert( |
|
2332 |
+ $param, |
|
2333 |
+ primary_key => [$key1, $key2], |
|
2334 |
+ table => $table1, |
|
2335 |
+ id => [1, 2], |
|
2336 |
+ query => 1 |
|
2337 |
+); |
|
2338 |
+is(ref $query, 'DBIx::Custom::Query'); |
|
2339 |
+is_deeply($param, {$key3 => 3, $key2 => 4}); |
|
2340 |
+ |
|
2326 | 2341 |
test 'model insert id and primary_key option'; |
2327 | 2342 |
$dbi = MyDBI6->connect; |
2328 | 2343 |
eval { $dbi->execute("drop table $table1") }; |