| ... | ... |
@@ -3194,4 +3194,6 @@ is_deeply($rows, [{key1 => 1, key2 => 11, key3 => 3, key4 => 4, key5 => 5},
|
| 3194 | 3194 |
"basic"); |
| 3195 | 3195 |
|
| 3196 | 3196 |
|
| 3197 |
+ |
|
| 3198 |
+ |
|
| 3197 | 3199 |
1; |
| ... | ... |
@@ -780,26 +780,6 @@ is($result->type_rule2_off->fetch_first->[0], '1bd'); |
| 780 | 780 |
$result = $dbi->select(table => 'table1'); |
| 781 | 781 |
is($result->type_rule2_on->fetch_first->[0], '1bde'); |
| 782 | 782 |
|
| 783 |
-test 'prefix'; |
|
| 784 |
-$dbi = DBIx::Custom->connect; |
|
| 785 |
-eval { $dbi->execute('drop table table1') };
|
|
| 786 |
-$dbi->execute("create table table1 (key1 char(255), key2 char(255), primary key(key1))");
|
|
| 787 |
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
|
| 788 |
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 4}, prefix => 'or replace');
|
|
| 789 |
-$result = $dbi->execute('select * from table1;');
|
|
| 790 |
-$rows = $result->all; |
|
| 791 |
-is_deeply($rows, [{key1 => 1, key2 => 4}], "basic");
|
|
| 792 |
- |
|
| 793 |
-$dbi = DBIx::Custom->connect; |
|
| 794 |
-eval { $dbi->execute('drop table table1') };
|
|
| 795 |
-$dbi->execute("create table table1 (key1 char(255), key2 char(255), primary key(key1))");
|
|
| 796 |
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
|
| 797 |
-$dbi->update(table => 'table1', param => {key2 => 4},
|
|
| 798 |
- where => {key1 => 1}, prefix => 'or replace');
|
|
| 799 |
-$result = $dbi->execute('select * from table1;');
|
|
| 800 |
-$rows = $result->all; |
|
| 801 |
-is_deeply($rows, [{key1 => 1, key2 => 4}], "basic");
|
|
| 802 |
- |
|
| 803 | 783 |
test 'Model class'; |
| 804 | 784 |
use MyDBI1; |
| 805 | 785 |
$dbi = MyDBI1->connect; |
| ... | ... |
@@ -861,7 +841,7 @@ eval { $dbi->execute('drop table test') };
|
| 861 | 841 |
|
| 862 | 842 |
$dbi->execute('create table book (id)');
|
| 863 | 843 |
$dbi->execute('create table company (id, name);');
|
| 864 |
-$dbi->execute('create table test (id, name, primary key (id, name));');
|
|
| 844 |
+$dbi->execute('create table test (id, name);');
|
|
| 865 | 845 |
$dbi->setup_model; |
| 866 | 846 |
is_deeply($dbi->model('book')->columns, ['id']);
|
| 867 | 847 |
is_deeply($dbi->model('company')->columns, ['id', 'name']);
|
| ... | ... |
@@ -876,10 +856,28 @@ is_deeply($dbi->model('company')->columns, ['id', 'name']);
|
| 876 | 856 |
|
| 877 | 857 |
|
| 878 | 858 |
|
| 859 |
+### SQLite only test |
|
| 860 |
+test 'prefix'; |
|
| 861 |
+$dbi = DBIx::Custom->connect; |
|
| 862 |
+eval { $dbi->execute('drop table table1') };
|
|
| 863 |
+$dbi->execute('create table table1 (key1 varchar, key2 varchar, primary key(key1));');
|
|
| 864 |
+$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
|
| 865 |
+$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 4}, prefix => 'or replace');
|
|
| 866 |
+$result = $dbi->execute('select * from table1;');
|
|
| 867 |
+$rows = $result->all; |
|
| 868 |
+is_deeply($rows, [{key1 => 1, key2 => 4}], "basic");
|
|
| 879 | 869 |
|
| 870 |
+$dbi = DBIx::Custom->connect; |
|
| 871 |
+eval { $dbi->execute('drop table table1') };
|
|
| 872 |
+$dbi->execute('create table table1 (key1 varchar, key2 varchar, primary key(key1));');
|
|
| 873 |
+$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
|
| 874 |
+$dbi->update(table => 'table1', param => {key2 => 4},
|
|
| 875 |
+ where => {key1 => 1}, prefix => 'or replace');
|
|
| 876 |
+$result = $dbi->execute('select * from table1;');
|
|
| 877 |
+$rows = $result->all; |
|
| 878 |
+is_deeply($rows, [{key1 => 1, key2 => 4}], "basic");
|
|
| 880 | 879 |
|
| 881 | 880 |
|
| 882 |
-### SQLite only test |
|
| 883 | 881 |
test 'quote'; |
| 884 | 882 |
$dbi = DBIx::Custom->connect; |
| 885 | 883 |
$dbi->quote('"');
|
| ... | ... |
@@ -955,6 +953,7 @@ $result = $dbi->select(table => 'table1'); |
| 955 | 953 |
eval {$result->fetch_hash_multi};
|
| 956 | 954 |
like($@, qr/Row count must be specified/, "Not specified row count"); |
| 957 | 955 |
|
| 956 |
+ |
|
| 958 | 957 |
# DEPRECATED! test |
| 959 | 958 |
test 'filter __ expression'; |
| 960 | 959 |
$dbi = DBIx::Custom->connect; |