...
|
...
|
@@ -4,7 +4,7 @@ use warnings;
|
4
|
4
|
use utf8;
|
5
|
5
|
use Encode qw/encode_utf8 decode_utf8/;
|
6
|
6
|
use FindBin;
|
7
|
|
-use lib "$FindBin::Bin/basic";
|
|
7
|
+use lib "$FindBin::Bin/common";
|
8
|
8
|
|
9
|
9
|
BEGIN {
|
10
|
10
|
eval { require DBD::SQLite; 1 }
|
...
|
...
|
@@ -28,6 +28,8 @@ sub test { print "# $_[0]\n" }
|
28
|
28
|
my $create_table1 = 'create table table1 (key1 char(255), key2 char(255));';
|
29
|
29
|
my $create_table1_2 = 'create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));';
|
30
|
30
|
my $create_table2 = 'create table table2 (key1 char(255), key3 char(255));';
|
|
31
|
+my $create_table2_2 = "create table table2 (key1, key2, key3)";
|
|
32
|
+my $create_table3 = "create table table3 (key1, key2, key3)";
|
31
|
33
|
my $create_table_reserved = 'create table "table" ("select", "update")';
|
32
|
34
|
|
33
|
35
|
my $q = '"';
|
...
|
...
|
@@ -545,8 +547,8 @@ eval { $dbi->execute('drop table table1') };
|
545
|
547
|
eval { $dbi->execute('drop table table2') };
|
546
|
548
|
eval { $dbi->execute('drop table table3') };
|
547
|
549
|
$dbi->execute($create_table1_2);
|
548
|
|
-$dbi->execute("create table table2 (key1, key2, key3)");
|
549
|
|
-$dbi->execute("create table table3 (key1, key2, key3)");
|
|
550
|
+$dbi->execute($create_table2_2);
|
|
551
|
+$dbi->execute($create_table3);
|
550
|
552
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
|
551
|
553
|
$dbi->model('table1')->delete_at(where => [1, 2]);
|
552
|
554
|
is_deeply($dbi->select(table => 'table1')->all, []);
|
...
|
...
|
@@ -1435,8 +1437,8 @@ eval { $dbi->execute('drop table table1') };
|
1435
|
1437
|
eval { $dbi->execute('drop table table2') };
|
1436
|
1438
|
eval { $dbi->execute('drop table table3') };
|
1437
|
1439
|
$dbi->execute($create_table1_2);
|
1438
|
|
-$dbi->execute("create table table2 (key1, key2, key3)");
|
1439
|
|
-$dbi->execute("create table table3 (key1, key2, key3)");
|
|
1440
|
+$dbi->execute($create_table2_2);
|
|
1441
|
+$dbi->execute($create_table3);
|
1440
|
1442
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
|
1441
|
1443
|
$dbi->model('table1')->delete(id => [1, 2]);
|
1442
|
1444
|
is_deeply($dbi->select(table => 'table1')->all, []);
|