...
|
...
|
@@ -462,6 +462,14 @@ $result = $dbi->execute("select * from $table1");
|
462
|
462
|
$rows = $result->all;
|
463
|
463
|
is_deeply($rows, [{$key1 => 1, $key2 => 2}, {$key1 => 3, $key2 => 4}], "basic");
|
464
|
464
|
|
|
465
|
+eval { $dbi->execute("drop table $table1") };
|
|
466
|
+$dbi->execute($create_table1);
|
|
467
|
+$dbi->insert(table => $table1, param => {$key1 => 1, $key2 => 2});
|
|
468
|
+$dbi->insert({$key1 => 3, $key2 => 4}, table => $table1);
|
|
469
|
+$result = $dbi->execute("select * from $table1");
|
|
470
|
+$rows = $result->all;
|
|
471
|
+is_deeply($rows, [{$key1 => 1, $key2 => 2}, {$key1 => 3, $key2 => 4}], "basic");
|
|
472
|
+
|
465
|
473
|
$dbi->execute("delete from $table1");
|
466
|
474
|
$dbi->register_filter(
|
467
|
475
|
twice => sub { $_[0] * 2 },
|
...
|
...
|
@@ -678,6 +686,17 @@ $rows = $result->all;
|
678
|
686
|
is_deeply($rows, [{$key1 => 1, $key2 => 11, $key3 => 3, $key4 => 4, $key5 => 5},
|
679
|
687
|
{$key1 => 6, $key2 => 7, $key3 => 8, $key4 => 9, $key5 => 10}],
|
680
|
688
|
"basic");
|
|
689
|
+
|
|
690
|
+eval { $dbi->execute("drop table $table1") };
|
|
691
|
+$dbi->execute($create_table1_2);
|
|
692
|
+$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3, $key4 => 4, $key5 => 5}, table => $table1);
|
|
693
|
+$dbi->insert({$key1 => 6, $key2 => 7, $key3 => 8, $key4 => 9, $key5 => 10}, table => $table1);
|
|
694
|
+$dbi->update(param => {$key2 => 11}, table => $table1, where => {$key1 => 1});
|
|
695
|
+$result = $dbi->execute("select * from $table1 order by $key1");
|
|
696
|
+$rows = $result->all;
|
|
697
|
+is_deeply($rows, [{$key1 => 1, $key2 => 11, $key3 => 3, $key4 => 4, $key5 => 5},
|
|
698
|
+ {$key1 => 6, $key2 => 7, $key3 => 8, $key4 => 9, $key5 => 10}],
|
|
699
|
+ "basic");
|
681
|
700
|
|
682
|
701
|
$dbi->execute("delete from $table1");
|
683
|
702
|
$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3, $key4 => 4, $key5 => 5}, table => $table1);
|