| ... | ... |
@@ -3,6 +3,9 @@ use strict; |
| 3 | 3 |
use warnings; |
| 4 | 4 |
use DBIx::Custom; |
| 5 | 5 |
use Encode qw/encode_utf8/; |
| 6 |
+use FindBin; |
|
| 7 |
+use lib "$FindBin::Bin/common"; |
|
| 8 |
+ |
|
| 6 | 9 |
|
| 7 | 10 |
my $dbi; |
| 8 | 11 |
|
| ... | ... |
@@ -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, []); |