| ... | ... |
@@ -0,0 +1,35 @@ |
| 1 |
+use Test::More; |
|
| 2 |
+use strict; |
|
| 3 |
+use warnings; |
|
| 4 |
+use utf8; |
|
| 5 |
+ |
|
| 6 |
+use FindBin; |
|
| 7 |
+use DBIx::Custom; |
|
| 8 |
+ |
|
| 9 |
+my $dbi; |
|
| 10 |
+my $dsn; |
|
| 11 |
+my $args; |
|
| 12 |
+my $database = "$FindBin::Bin/access.mdb"; |
|
| 13 |
+ |
|
| 14 |
+$dsn = "dbi:ODBC:driver=Microsoft Access Driver (*.mdb);dbq=$database"; |
|
| 15 |
+ |
|
| 16 |
+plan skip_all => 'mysql private test' unless -f "$FindBin::Bin/run/mysql2.run" |
|
| 17 |
+ && eval { $dbi = DBIx::Custom->connect(dsn => $dsn); 1 };
|
|
| 18 |
+plan 'no_plan'; |
|
| 19 |
+ |
|
| 20 |
+my $model; |
|
| 21 |
+my $result; |
|
| 22 |
+my $rows; |
|
| 23 |
+ |
|
| 24 |
+eval { $dbi->execute("drop table table1") };
|
|
| 25 |
+$dbi->execute("create table table1 (key1 varchar(255), key2 varchar(255))");
|
|
| 26 |
+$model = $dbi->create_model(table => 'table1'); |
|
| 27 |
+$model->insert({key1 => 1, key2 => 2});
|
|
| 28 |
+$model->insert({key1 => 4, key2 => 5});
|
|
| 29 |
+$model->insert({key1 => 6, key2 => 7});
|
|
| 30 |
+$model->update({key2 => 3}, where => {key1 => 1});
|
|
| 31 |
+$model->delete(where => {key1 => 6});
|
|
| 32 |
+$rows = $model->select->all; |
|
| 33 |
+is_deeply($rows, [{key1 => 1, key2 => 3}, {key1 => 4, key2 => 5}]);
|
|
| 34 |
+is($model->count, 2); |
|
| 35 |
+ |