...
|
...
|
@@ -21,7 +21,8 @@ sub test { print "# $_[0]\n" }
|
21
|
21
|
|
22
|
22
|
# Constant
|
23
|
23
|
my %memory = (dsn => 'dbi:SQLite:dbname=:memory:');
|
24
|
|
-my $create_table_default = 'create table table1 (key1 char(255), key2 char(255));';
|
|
24
|
+my $create_table1 = 'create table table1 (key1 char(255), key2 char(255));';
|
|
25
|
+my $create_table1_2 = 'create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));';
|
25
|
26
|
|
26
|
27
|
# Variables
|
27
|
28
|
my $builder;
|
...
|
...
|
@@ -60,7 +61,7 @@ $dbi = DBIx::Custom->connect(%memory);
|
60
|
61
|
|
61
|
62
|
test 'insert';
|
62
|
63
|
$dbi = DBIx::Custom->connect(%memory);
|
63
|
|
-$dbi->execute($create_table_default);
|
|
64
|
+$dbi->execute($create_table1);
|
64
|
65
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
65
|
66
|
$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
|
66
|
67
|
$result = $dbi->execute('select * from table1;');
|
...
|
...
|
@@ -80,7 +81,7 @@ is_deeply($rows, [{key1 => 3, key2 => 4}], "filter");
|
80
|
81
|
$dbi->default_bind_filter(undef);
|
81
|
82
|
|
82
|
83
|
$dbi->execute('drop table table1');
|
83
|
|
-$dbi->execute($create_table_default);
|
|
84
|
+$dbi->execute($create_table1);
|
84
|
85
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2}, append => ' ');
|
85
|
86
|
$rows = $dbi->select(table => 'table1')->all;
|
86
|
87
|
is_deeply($rows, [{key1 => 1, key2 => 2}], 'insert append');
|
...
|
...
|
@@ -101,7 +102,7 @@ $rows = $result->all;
|
101
|
102
|
is_deeply($rows, [{select => 2}], "reserved word");
|
102
|
103
|
|
103
|
104
|
$dbi = DBIx::Custom->connect(%memory);
|
104
|
|
-$dbi->execute($create_table_default);
|
|
105
|
+$dbi->execute($create_table1);
|
105
|
106
|
$dbi->insert({key1 => 1, key2 => 2}, table => 'table1');
|
106
|
107
|
$dbi->insert({key1 => 3, key2 => 4}, table => 'table1');
|
107
|
108
|
$result = $dbi->execute('select * from table1;');
|
...
|
...
|
@@ -117,7 +118,7 @@ $rows = $result->all;
|
117
|
118
|
is_deeply($rows, [{key1 => 1, key2 => 4}], "basic");
|
118
|
119
|
|
119
|
120
|
$dbi = DBIx::Custom->connect(%memory);
|
120
|
|
-$dbi->execute($create_table_default);
|
|
121
|
+$dbi->execute($create_table1);
|
121
|
122
|
$dbi->insert(table => 'table1', param => {key1 => \"'1'", key2 => 2});
|
122
|
123
|
$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
|
123
|
124
|
$result = $dbi->execute('select * from table1;');
|
...
|
...
|
@@ -126,7 +127,7 @@ is_deeply($rows, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}], "basic");
|
126
|
127
|
|
127
|
128
|
test 'update';
|
128
|
129
|
$dbi = DBIx::Custom->connect(%memory);
|
129
|
|
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
|
|
130
|
+$dbi->execute($create_table1_2);
|
130
|
131
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});
|
131
|
132
|
$dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});
|
132
|
133
|
$dbi->update(table => 'table1', param => {key2 => 11}, where => {key1 => 1});
|
...
|
...
|
@@ -174,7 +175,7 @@ eval{$dbi->update(table => 'table1')};
|
174
|
175
|
like($@, qr/where/, "not contain where");
|
175
|
176
|
|
176
|
177
|
$dbi = DBIx::Custom->connect(%memory);
|
177
|
|
-$dbi->execute($create_table_default);
|
|
178
|
+$dbi->execute($create_table1);
|
178
|
179
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
179
|
180
|
$where = $dbi->where;
|
180
|
181
|
$where->clause(['and', 'key1 = :key1', 'key2 = :key2']);
|
...
|
...
|
@@ -184,7 +185,7 @@ $result = $dbi->select(table => 'table1');
|
184
|
185
|
is_deeply($result->all, [{key1 => 3, key2 => 2}], 'update() where');
|
185
|
186
|
|
186
|
187
|
$dbi = DBIx::Custom->connect(%memory);
|
187
|
|
-$dbi->execute($create_table_default);
|
|
188
|
+$dbi->execute($create_table1);
|
188
|
189
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
189
|
190
|
$dbi->update(
|
190
|
191
|
table => 'table1',
|
...
|
...
|
@@ -198,7 +199,7 @@ $result = $dbi->select(table => 'table1');
|
198
|
199
|
is_deeply($result->all, [{key1 => 3, key2 => 2}], 'update() where');
|
199
|
200
|
|
200
|
201
|
$dbi = DBIx::Custom->connect(%memory);
|
201
|
|
-$dbi->execute($create_table_default);
|
|
202
|
+$dbi->execute($create_table1);
|
202
|
203
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
203
|
204
|
$where = $dbi->where;
|
204
|
205
|
$where->clause(['and', 'key2 = :key2']);
|
...
|
...
|
@@ -239,7 +240,7 @@ $rows = $result->all;
|
239
|
240
|
is_deeply($rows, [{select => 2, update => 6}], "reserved word");
|
240
|
241
|
|
241
|
242
|
$dbi = DBIx::Custom->connect(%memory);
|
242
|
|
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
|
|
243
|
+$dbi->execute($create_table1_2);
|
243
|
244
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});
|
244
|
245
|
$dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});
|
245
|
246
|
$dbi->update({key2 => 11}, table => 'table1', where => {key1 => 1});
|
...
|
...
|
@@ -259,7 +260,7 @@ $rows = $result->all;
|
259
|
260
|
is_deeply($rows, [{key1 => 1, key2 => 4}], "basic");
|
260
|
261
|
|
261
|
262
|
$dbi = DBIx::Custom->connect(%memory);
|
262
|
|
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
|
|
263
|
+$dbi->execute($create_table1_2);
|
263
|
264
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});
|
264
|
265
|
$dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});
|
265
|
266
|
$dbi->update(table => 'table1', param => {key2 => \"'11'"}, where => {key1 => 1});
|
...
|
...
|
@@ -271,7 +272,7 @@ is_deeply($rows, [{key1 => 1, key2 => 11, key3 => 3, key4 => 4, key5 => 5},
|
271
|
272
|
|
272
|
273
|
test 'update_all';
|
273
|
274
|
$dbi = DBIx::Custom->connect(%memory);
|
274
|
|
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
|
|
275
|
+$dbi->execute($create_table1_2);
|
275
|
276
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});
|
276
|
277
|
$dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});
|
277
|
278
|
$dbi->register_filter(twice => sub { $_[0] * 2 });
|
...
|
...
|
@@ -285,7 +286,7 @@ is_deeply($rows, [{key1 => 1, key2 => 20, key3 => 3, key4 => 4, key5 => 5},
|
285
|
286
|
|
286
|
287
|
test 'delete';
|
287
|
288
|
$dbi = DBIx::Custom->connect(%memory);
|
288
|
|
-$dbi->execute($create_table_default);
|
|
289
|
+$dbi->execute($create_table1);
|
289
|
290
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
290
|
291
|
$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
|
291
|
292
|
$dbi->delete(table => 'table1', where => {key1 => 1});
|
...
|
...
|
@@ -315,7 +316,7 @@ eval{$dbi->delete(table => 'table1', where => {key1 => 1}, noexist => 1)};
|
315
|
316
|
like($@, qr/noexist/, "invalid");
|
316
|
317
|
|
317
|
318
|
$dbi = DBIx::Custom->connect(%memory);
|
318
|
|
-$dbi->execute($create_table_default);
|
|
319
|
+$dbi->execute($create_table1);
|
319
|
320
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
320
|
321
|
$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
|
321
|
322
|
$where = $dbi->where;
|
...
|
...
|
@@ -326,7 +327,7 @@ $result = $dbi->select(table => 'table1');
|
326
|
327
|
is_deeply($result->all, [{key1 => 3, key2 => 4}], 'delete() where');
|
327
|
328
|
|
328
|
329
|
$dbi = DBIx::Custom->connect(%memory);
|
329
|
|
-$dbi->execute($create_table_default);
|
|
330
|
+$dbi->execute($create_table1);
|
330
|
331
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
331
|
332
|
$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
|
332
|
333
|
$dbi->delete(
|
...
|
...
|
@@ -349,7 +350,7 @@ is_deeply($rows, [], "basic");
|
349
|
350
|
|
350
|
351
|
test 'delete error';
|
351
|
352
|
$dbi = DBIx::Custom->connect(%memory);
|
352
|
|
-$dbi->execute($create_table_default);
|
|
353
|
+$dbi->execute($create_table1);
|
353
|
354
|
eval{$dbi->delete(table => 'table1')};
|
354
|
355
|
like($@, qr/"where" must be specified/,
|
355
|
356
|
"where key-value pairs not specified");
|
...
|
...
|
@@ -369,7 +370,7 @@ is_deeply($rows, [], "reserved word");
|
369
|
370
|
|
370
|
371
|
test 'delete_all';
|
371
|
372
|
$dbi = DBIx::Custom->connect(%memory);
|
372
|
|
-$dbi->execute($create_table_default);
|
|
373
|
+$dbi->execute($create_table1);
|
373
|
374
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
374
|
375
|
$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
|
375
|
376
|
$dbi->delete_all(table => 'table1');
|
...
|
...
|
@@ -380,7 +381,7 @@ is_deeply($rows, [], "basic");
|
380
|
381
|
|
381
|
382
|
test 'select';
|
382
|
383
|
$dbi = DBIx::Custom->connect(%memory);
|
383
|
|
-$dbi->execute($create_table_default);
|
|
384
|
+$dbi->execute($create_table1);
|
384
|
385
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
385
|
386
|
$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
|
386
|
387
|
$rows = $dbi->select(table => 'table1')->all;
|
...
|
...
|
@@ -440,7 +441,7 @@ $dbi->register_filter(
|
440
|
441
|
three_times => sub { $_[0] * 3 }
|
441
|
442
|
);
|
442
|
443
|
$dbi->default_fetch_filter('twice');
|
443
|
|
-$dbi->execute($create_table_default);
|
|
444
|
+$dbi->execute($create_table1);
|
444
|
445
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
445
|
446
|
$result = $dbi->select(table => 'table1');
|
446
|
447
|
$result->filter({key1 => 'three_times'});
|
...
|
...
|
@@ -458,7 +459,7 @@ is($dbi->filters->{encode_utf8}->('あ'),
|
458
|
459
|
|
459
|
460
|
test 'transaction';
|
460
|
461
|
$dbi = DBIx::Custom->connect(%memory);
|
461
|
|
-$dbi->execute($create_table_default);
|
|
462
|
+$dbi->execute($create_table1);
|
462
|
463
|
$dbi->dbh->begin_work;
|
463
|
464
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
464
|
465
|
$dbi->insert(table => 'table1', param => {key1 => 2, key2 => 3});
|
...
|
...
|
@@ -468,7 +469,7 @@ is_deeply(scalar $result->all, [{key1 => 1, key2 => 2}, {key1 => 2, key2 => 3}],
|
468
|
469
|
"commit");
|
469
|
470
|
|
470
|
471
|
$dbi = DBIx::Custom->connect(%memory);
|
471
|
|
-$dbi->execute($create_table_default);
|
|
472
|
+$dbi->execute($create_table1);
|
472
|
473
|
$dbi->dbh->begin_work(0);
|
473
|
474
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
474
|
475
|
$dbi->dbh->rollback;
|
...
|
...
|
@@ -479,14 +480,14 @@ ok(! $result->fetch_first, "rollback");
|
479
|
480
|
test 'cache';
|
480
|
481
|
$dbi = DBIx::Custom->connect(%memory);
|
481
|
482
|
$dbi->cache(1);
|
482
|
|
-$dbi->execute($create_table_default);
|
|
483
|
+$dbi->execute($create_table1);
|
483
|
484
|
$source = 'select * from table1 where key1 = :key1 and key2 = :key2;';
|
484
|
485
|
$dbi->execute($source, {}, query => 1);
|
485
|
486
|
is_deeply($dbi->{_cached}->{$source},
|
486
|
487
|
{sql => "select * from table1 where key1 = ? and key2 = ?;", columns => ['key1', 'key2'], tables => []}, "cache");
|
487
|
488
|
|
488
|
489
|
$dbi = DBIx::Custom->connect(%memory);
|
489
|
|
-$dbi->execute($create_table_default);
|
|
490
|
+$dbi->execute($create_table1);
|
490
|
491
|
$dbi->{_cached} = {};
|
491
|
492
|
$dbi->cache(0);
|
492
|
493
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
...
|
...
|
@@ -494,7 +495,7 @@ is(scalar keys %{$dbi->{_cached}}, 0, 'not cache');
|
494
|
495
|
|
495
|
496
|
test 'execute';
|
496
|
497
|
$dbi = DBIx::Custom->connect(%memory);
|
497
|
|
-$dbi->execute($create_table_default);
|
|
498
|
+$dbi->execute($create_table1);
|
498
|
499
|
{
|
499
|
500
|
local $Carp::Verbose = 0;
|
500
|
501
|
eval{$dbi->execute('select * frm table1')};
|
...
|
...
|
@@ -529,7 +530,7 @@ ok($@, "execute fail");
|
529
|
530
|
|
530
|
531
|
test 'transaction';
|
531
|
532
|
$dbi = DBIx::Custom->connect(%memory);
|
532
|
|
-$dbi->execute($create_table_default);
|
|
533
|
+$dbi->execute($create_table1);
|
533
|
534
|
|
534
|
535
|
$dbi->begin_work;
|
535
|
536
|
|
...
|
...
|
@@ -588,7 +589,7 @@ ok($@, "not exists");
|
588
|
589
|
|
589
|
590
|
test 'out filter';
|
590
|
591
|
$dbi = DBIx::Custom->connect(%memory);
|
591
|
|
-$dbi->execute($create_table_default);
|
|
592
|
+$dbi->execute($create_table1);
|
592
|
593
|
$dbi->register_filter(twice => sub { $_[0] * 2 });
|
593
|
594
|
$dbi->register_filter(three_times => sub { $_[0] * 3});
|
594
|
595
|
$dbi->apply_filter(
|
...
|
...
|
@@ -603,7 +604,7 @@ $row = $result->one;
|
603
|
604
|
is_deeply($row, {key1 => 6, key2 => 12}, "insert");
|
604
|
605
|
|
605
|
606
|
$dbi = DBIx::Custom->connect(%memory);
|
606
|
|
-$dbi->execute($create_table_default);
|
|
607
|
+$dbi->execute($create_table1);
|
607
|
608
|
$dbi->register_filter(twice => sub { $_[0] * 2 });
|
608
|
609
|
$dbi->register_filter(three_times => sub { $_[0] * 3});
|
609
|
610
|
$dbi->apply_filter(
|
...
|
...
|
@@ -618,7 +619,7 @@ $row = $result->one;
|
618
|
619
|
is_deeply($row, {key1 => 1, key2 => 6}, "insert");
|
619
|
620
|
|
620
|
621
|
$dbi = DBIx::Custom->connect(%memory);
|
621
|
|
-$dbi->execute($create_table_default);
|
|
622
|
+$dbi->execute($create_table1);
|
622
|
623
|
$dbi->register_filter(twice => sub { $_[0] * 2 });
|
623
|
624
|
$dbi->apply_filter(
|
624
|
625
|
'table1', 'key1' => {out => 'twice', in => 'twice'}
|
...
|
...
|
@@ -630,7 +631,7 @@ $row = $result->one;
|
630
|
631
|
is_deeply($row, {key1 => 4, key2 => 2}, "update");
|
631
|
632
|
|
632
|
633
|
$dbi = DBIx::Custom->connect(%memory);
|
633
|
|
-$dbi->execute($create_table_default);
|
|
634
|
+$dbi->execute($create_table1);
|
634
|
635
|
$dbi->register_filter(twice => sub { $_[0] * 2 });
|
635
|
636
|
$dbi->apply_filter(
|
636
|
637
|
'table1', 'key1' => {out => 'twice', in => 'twice'}
|
...
|
...
|
@@ -642,7 +643,7 @@ $rows = $result->all;
|
642
|
643
|
is_deeply($rows, [], "delete");
|
643
|
644
|
|
644
|
645
|
$dbi = DBIx::Custom->connect(%memory);
|
645
|
|
-$dbi->execute($create_table_default);
|
|
646
|
+$dbi->execute($create_table1);
|
646
|
647
|
$dbi->register_filter(twice => sub { $_[0] * 2 });
|
647
|
648
|
$dbi->apply_filter(
|
648
|
649
|
'table1', 'key1' => {out => 'twice', in => 'twice'}
|
...
|
...
|
@@ -654,7 +655,7 @@ $rows = $result->all;
|
654
|
655
|
is_deeply($rows, [{key1 => 4, key2 => 4}], "select");
|
655
|
656
|
|
656
|
657
|
$dbi = DBIx::Custom->connect(%memory);
|
657
|
|
-$dbi->execute($create_table_default);
|
|
658
|
+$dbi->execute($create_table1);
|
658
|
659
|
$dbi->register_filter(twice => sub { $_[0] * 2 });
|
659
|
660
|
$dbi->apply_filter(
|
660
|
661
|
'table1', 'key1' => {out => 'twice', in => 'twice'}
|
...
|
...
|
@@ -667,7 +668,7 @@ $rows = $result->all;
|
667
|
668
|
is_deeply($rows, [{key1 => 4, key2 => 2}], "execute");
|
668
|
669
|
|
669
|
670
|
$dbi = DBIx::Custom->connect(%memory);
|
670
|
|
-$dbi->execute($create_table_default);
|
|
671
|
+$dbi->execute($create_table1);
|
671
|
672
|
$dbi->register_filter(twice => sub { $_[0] * 2 });
|
672
|
673
|
$dbi->apply_filter(
|
673
|
674
|
'table1', 'key1' => {out => 'twice', in => 'twice'}
|
...
|
...
|
@@ -679,7 +680,7 @@ $rows = $result->all;
|
679
|
680
|
is_deeply($rows, [{key1 => 4, key2 => 2}], "execute table tag");
|
680
|
681
|
|
681
|
682
|
$dbi = DBIx::Custom->connect(%memory);
|
682
|
|
-$dbi->execute($create_table_default);
|
|
683
|
+$dbi->execute($create_table1);
|
683
|
684
|
$dbi->execute('create table table2 (key1 char(255), key3 char(255));');
|
684
|
685
|
$dbi->register_filter(twice => sub { $_[0] * 2 });
|
685
|
686
|
$dbi->register_filter(three_times => sub { $_[0] * 3 });
|
...
|
...
|
@@ -757,7 +758,7 @@ is_deeply($infos,
|
757
|
758
|
|
758
|
759
|
test 'limit';
|
759
|
760
|
$dbi = DBIx::Custom->connect(%memory);
|
760
|
|
-$dbi->execute($create_table_default);
|
|
761
|
+$dbi->execute($create_table1);
|
761
|
762
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
762
|
763
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 4});
|
763
|
764
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 6});
|
...
|
...
|
@@ -810,13 +811,13 @@ test 'connect super';
|
810
|
811
|
}
|
811
|
812
|
|
812
|
813
|
$dbi = MyDBI->connect(%memory);
|
813
|
|
-$dbi->execute($create_table_default);
|
|
814
|
+$dbi->execute($create_table1);
|
814
|
815
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
815
|
816
|
is($dbi->select(table => 'table1')->one->{key1}, 1);
|
816
|
817
|
|
817
|
818
|
$dbi = MyDBI->new(%memory);
|
818
|
819
|
$dbi->connect;
|
819
|
|
-$dbi->execute($create_table_default);
|
|
820
|
+$dbi->execute($create_table1);
|
820
|
821
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
821
|
822
|
is($dbi->select(table => 'table1')->one->{key1}, 1);
|
822
|
823
|
|
...
|
...
|
@@ -833,13 +834,13 @@ is($dbi->select(table => 'table1')->one->{key1}, 1);
|
833
|
834
|
}
|
834
|
835
|
|
835
|
836
|
$dbi = MyDBI->connect(%memory);
|
836
|
|
-$dbi->execute($create_table_default);
|
|
837
|
+$dbi->execute($create_table1);
|
837
|
838
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
838
|
839
|
is($dbi->select(table => 'table1')->one->{key1}, 1);
|
839
|
840
|
|
840
|
841
|
test 'end_filter';
|
841
|
842
|
$dbi = DBIx::Custom->connect(%memory);
|
842
|
|
-$dbi->execute($create_table_default);
|
|
843
|
+$dbi->execute($create_table1);
|
843
|
844
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
844
|
845
|
$result = $dbi->select(table => 'table1');
|
845
|
846
|
$result->filter(key1 => sub { $_[0] * 2 }, key2 => sub { $_[0] * 4 });
|
...
|
...
|
@@ -848,7 +849,7 @@ $row = $result->fetch_first;
|
848
|
849
|
is_deeply($row, [6, 40]);
|
849
|
850
|
|
850
|
851
|
$dbi = DBIx::Custom->connect(%memory);
|
851
|
|
-$dbi->execute($create_table_default);
|
|
852
|
+$dbi->execute($create_table1);
|
852
|
853
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
853
|
854
|
$result = $dbi->select(table => 'table1');
|
854
|
855
|
$result->filter([qw/key1 key2/] => sub { $_[0] * 2 });
|
...
|
...
|
@@ -857,7 +858,7 @@ $row = $result->fetch_first;
|
857
|
858
|
is_deeply($row, [6, 12]);
|
858
|
859
|
|
859
|
860
|
$dbi = DBIx::Custom->connect(%memory);
|
860
|
|
-$dbi->execute($create_table_default);
|
|
861
|
+$dbi->execute($create_table1);
|
861
|
862
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
862
|
863
|
$result = $dbi->select(table => 'table1');
|
863
|
864
|
$result->filter([[qw/key1 key2/] => sub { $_[0] * 2 }]);
|
...
|
...
|
@@ -896,7 +897,7 @@ is_deeply($row, {key1 => 1, key2 => 40}, 'apply_filter overwrite');
|
896
|
897
|
|
897
|
898
|
test 'remove_end_filter and remove_filter';
|
898
|
899
|
$dbi = DBIx::Custom->connect(%memory);
|
899
|
|
-$dbi->execute($create_table_default);
|
|
900
|
+$dbi->execute($create_table1);
|
900
|
901
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
901
|
902
|
$result = $dbi->select(table => 'table1');
|
902
|
903
|
$row = $result
|
...
|
...
|
@@ -909,7 +910,7 @@ is_deeply($row, [1, 2]);
|
909
|
910
|
|
910
|
911
|
test 'empty where select';
|
911
|
912
|
$dbi = DBIx::Custom->connect(%memory);
|
912
|
|
-$dbi->execute($create_table_default);
|
|
913
|
+$dbi->execute($create_table1);
|
913
|
914
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
914
|
915
|
$result = $dbi->select(table => 'table1', where => {});
|
915
|
916
|
$row = $result->one;
|
...
|
...
|
@@ -917,7 +918,7 @@ is_deeply($row, {key1 => 1, key2 => 2});
|
917
|
918
|
|
918
|
919
|
test 'select query option';
|
919
|
920
|
$dbi = DBIx::Custom->connect(%memory);
|
920
|
|
-$dbi->execute($create_table_default);
|
|
921
|
+$dbi->execute($create_table1);
|
921
|
922
|
$query = $dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2}, query => 1);
|
922
|
923
|
is(ref $query, 'DBIx::Custom::Query');
|
923
|
924
|
$query = $dbi->update(table => 'table1', where => {key1 => 1}, param => {key2 => 2}, query => 1);
|
...
|
...
|
@@ -929,7 +930,7 @@ is(ref $query, 'DBIx::Custom::Query');
|
929
|
930
|
|
930
|
931
|
test 'where';
|
931
|
932
|
$dbi = DBIx::Custom->connect(%memory);
|
932
|
|
-$dbi->execute($create_table_default);
|
|
933
|
+$dbi->execute($create_table1);
|
933
|
934
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
934
|
935
|
$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
|
935
|
936
|
$where = $dbi->where->clause(['and', 'key1 = :key1', 'key2 = :key2']);
|
...
|
...
|
@@ -1403,7 +1404,7 @@ $dbi->apply_filter(
|
1403
|
1404
|
|
1404
|
1405
|
);
|
1405
|
1406
|
$dbi = DBIx::Custom->connect(%memory);
|
1406
|
|
-$dbi->execute($create_table_default);
|
|
1407
|
+$dbi->execute($create_table1);
|
1407
|
1408
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
1408
|
1409
|
$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
|
1409
|
1410
|
$dbi->apply_filter('table1', 'key2',
|
...
|
...
|
@@ -1412,7 +1413,7 @@ $rows = $dbi->select(table => 'table1', where => {key2 => 1})->all;
|
1412
|
1413
|
is_deeply($rows, [{key1 => 1, key2 => 6}]);
|
1413
|
1414
|
|
1414
|
1415
|
$dbi = DBIx::Custom->connect(%memory);
|
1415
|
|
-$dbi->execute($create_table_default);
|
|
1416
|
+$dbi->execute($create_table1);
|
1416
|
1417
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
1417
|
1418
|
$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
|
1418
|
1419
|
$dbi->apply_filter('table1', 'key2', {});
|
...
|
...
|
@@ -1431,7 +1432,7 @@ eval{DBIx::Custom->connect()};
|
1431
|
1432
|
like($@, qr/_connect/);
|
1432
|
1433
|
|
1433
|
1434
|
$dbi = DBIx::Custom->connect(%memory);
|
1434
|
|
-$dbi->execute($create_table_default);
|
|
1435
|
+$dbi->execute($create_table1);
|
1435
|
1436
|
$dbi->register_filter(twice => sub { $_[0] * 2 });
|
1436
|
1437
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2},
|
1437
|
1438
|
filter => {key1 => 'twice'});
|
...
|
...
|
@@ -1458,7 +1459,7 @@ eval {$dbi->execute('select * from table1 {} {= author') };
|
1458
|
1459
|
like($@, qr/Tag not finished/);
|
1459
|
1460
|
|
1460
|
1461
|
$dbi = DBIx::Custom->connect(%memory);
|
1461
|
|
-$dbi->execute($create_table_default);
|
|
1462
|
+$dbi->execute($create_table1);
|
1462
|
1463
|
$dbi->register_filter(one => sub { 1 });
|
1463
|
1464
|
$result = $dbi->select(table => 'table1');
|
1464
|
1465
|
eval {$result->filter(key1 => 'no')};
|
...
|
...
|
@@ -1643,7 +1644,7 @@ is_deeply($dbi->model('company')->columns, ['id', 'name']);
|
1643
|
1644
|
|
1644
|
1645
|
test 'delete_at';
|
1645
|
1646
|
$dbi = DBIx::Custom->connect(%memory);
|
1646
|
|
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
|
|
1647
|
+$dbi->execute($create_table1_2);
|
1647
|
1648
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
|
1648
|
1649
|
$dbi->delete_at(
|
1649
|
1650
|
table => 'table1',
|
...
|
...
|
@@ -1662,7 +1663,7 @@ is_deeply($dbi->select(table => 'table1')->all, []);
|
1662
|
1663
|
|
1663
|
1664
|
test 'insert_at';
|
1664
|
1665
|
$dbi = DBIx::Custom->connect(%memory);
|
1665
|
|
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
|
|
1666
|
+$dbi->execute($create_table1_2);
|
1666
|
1667
|
$dbi->insert_at(
|
1667
|
1668
|
primary_key => ['key1', 'key2'],
|
1668
|
1669
|
table => 'table1',
|
...
|
...
|
@@ -1697,7 +1698,7 @@ eval {
|
1697
|
1698
|
like($@, qr/must be/);
|
1698
|
1699
|
|
1699
|
1700
|
$dbi = DBIx::Custom->connect(%memory);
|
1700
|
|
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
|
|
1701
|
+$dbi->execute($create_table1_2);
|
1701
|
1702
|
$dbi->insert_at(
|
1702
|
1703
|
{key3 => 3},
|
1703
|
1704
|
primary_key => ['key1', 'key2'],
|
...
|
...
|
@@ -1710,7 +1711,7 @@ is($dbi->select(table => 'table1')->one->{key3}, 3);
|
1710
|
1711
|
|
1711
|
1712
|
test 'update_at';
|
1712
|
1713
|
$dbi = DBIx::Custom->connect(%memory);
|
1713
|
|
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
|
|
1714
|
+$dbi->execute($create_table1_2);
|
1714
|
1715
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
|
1715
|
1716
|
$dbi->update_at(
|
1716
|
1717
|
table => 'table1',
|
...
|
...
|
@@ -1735,7 +1736,7 @@ is($dbi->select(table => 'table1')->one->{key2}, 2);
|
1735
|
1736
|
is($dbi->select(table => 'table1')->one->{key3}, 4);
|
1736
|
1737
|
|
1737
|
1738
|
$dbi = DBIx::Custom->connect(%memory);
|
1738
|
|
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
|
|
1739
|
+$dbi->execute($create_table1_2);
|
1739
|
1740
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
|
1740
|
1741
|
$dbi->update_at(
|
1741
|
1742
|
{key3 => 4},
|
...
|
...
|
@@ -1749,7 +1750,7 @@ is($dbi->select(table => 'table1')->one->{key3}, 4);
|
1749
|
1750
|
|
1750
|
1751
|
test 'select_at';
|
1751
|
1752
|
$dbi = DBIx::Custom->connect(%memory);
|
1752
|
|
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
|
|
1753
|
+$dbi->execute($create_table1_2);
|
1753
|
1754
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
|
1754
|
1755
|
$result = $dbi->select_at(
|
1755
|
1756
|
table => 'table1',
|
...
|
...
|
@@ -1843,7 +1844,7 @@ test 'model delete_at';
|
1843
|
1844
|
}
|
1844
|
1845
|
}
|
1845
|
1846
|
$dbi = MyDBI6->connect(%memory);
|
1846
|
|
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
|
|
1847
|
+$dbi->execute($create_table1_2);
|
1847
|
1848
|
$dbi->execute("create table table2 (key1, key2, key3)");
|
1848
|
1849
|
$dbi->execute("create table table3 (key1, key2, key3)");
|
1849
|
1850
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
|
...
|
...
|
@@ -1858,7 +1859,7 @@ is_deeply($dbi->select(table => 'table1')->all, []);
|
1858
|
1859
|
|
1859
|
1860
|
test 'model insert_at';
|
1860
|
1861
|
$dbi = MyDBI6->connect(%memory);
|
1861
|
|
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
|
|
1862
|
+$dbi->execute($create_table1_2);
|
1862
|
1863
|
$dbi->model('table1')->insert_at(
|
1863
|
1864
|
where => [1, 2],
|
1864
|
1865
|
param => {key3 => 3}
|
...
|
...
|
@@ -1871,7 +1872,7 @@ is($row->{key3}, 3);
|
1871
|
1872
|
|
1872
|
1873
|
test 'model update_at';
|
1873
|
1874
|
$dbi = MyDBI6->connect(%memory);
|
1874
|
|
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
|
|
1875
|
+$dbi->execute($create_table1_2);
|
1875
|
1876
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
|
1876
|
1877
|
$dbi->model('table1')->update_at(
|
1877
|
1878
|
where => [1, 2],
|
...
|
...
|
@@ -1885,7 +1886,7 @@ is($row->{key3}, 4);
|
1885
|
1886
|
|
1886
|
1887
|
test 'model select_at';
|
1887
|
1888
|
$dbi = MyDBI6->connect(%memory);
|
1888
|
|
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
|
|
1889
|
+$dbi->execute($create_table1_2);
|
1889
|
1890
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
|
1890
|
1891
|
$result = $dbi->model('table1')->select_at(where => [1, 2]);
|
1891
|
1892
|
$row = $result->one;
|
...
|
...
|
@@ -1910,7 +1911,7 @@ test 'mycolumn and column';
|
1910
|
1911
|
}
|
1911
|
1912
|
}
|
1912
|
1913
|
$dbi = MyDBI7->connect(%memory);
|
1913
|
|
-$dbi->execute($create_table_default);
|
|
1914
|
+$dbi->execute($create_table1);
|
1914
|
1915
|
$dbi->execute('create table table2 (key1 char(255), key3 char(255));');
|
1915
|
1916
|
$dbi->separator('__');
|
1916
|
1917
|
$dbi->setup_model;
|
...
|
...
|
@@ -1926,7 +1927,7 @@ is_deeply($result->one,
|
1926
|
1927
|
|
1927
|
1928
|
test 'update_param';
|
1928
|
1929
|
$dbi = DBIx::Custom->connect(%memory);
|
1929
|
|
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
|
|
1930
|
+$dbi->execute($create_table1_2);
|
1930
|
1931
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});
|
1931
|
1932
|
$dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});
|
1932
|
1933
|
|
...
|
...
|
@@ -1945,7 +1946,7 @@ is_deeply($rows, [{key1 => 1, key2 => 11, key3 => 3, key4 => 4, key5 => 5},
|
1945
|
1946
|
|
1946
|
1947
|
|
1947
|
1948
|
$dbi = DBIx::Custom->connect(%memory);
|
1948
|
|
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
|
|
1949
|
+$dbi->execute($create_table1_2);
|
1949
|
1950
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});
|
1950
|
1951
|
$dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});
|
1951
|
1952
|
|
...
|
...
|
@@ -1963,7 +1964,7 @@ is_deeply($rows, [{key1 => 1, key2 => 11, key3 => 33, key4 => 4, key5 => 5},
|
1963
|
1964
|
"basic");
|
1964
|
1965
|
|
1965
|
1966
|
$dbi = DBIx::Custom->connect(%memory);
|
1966
|
|
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
|
|
1967
|
+$dbi->execute($create_table1_2);
|
1967
|
1968
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});
|
1968
|
1969
|
$dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});
|
1969
|
1970
|
|
...
|
...
|
@@ -1987,7 +1988,7 @@ like($@, qr/not safety/);
|
1987
|
1988
|
|
1988
|
1989
|
test 'update_param';
|
1989
|
1990
|
$dbi = DBIx::Custom->connect(%memory);
|
1990
|
|
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
|
|
1991
|
+$dbi->execute($create_table1_2);
|
1991
|
1992
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});
|
1992
|
1993
|
$dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});
|
1993
|
1994
|
|
...
|
...
|
@@ -2007,7 +2008,7 @@ is_deeply($rows, [{key1 => 1, key2 => 11, key3 => 3, key4 => 4, key5 => 5},
|
2007
|
2008
|
|
2008
|
2009
|
test 'insert_param';
|
2009
|
2010
|
$dbi = DBIx::Custom->connect(%memory);
|
2010
|
|
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
|
|
2011
|
+$dbi->execute($create_table1_2);
|
2011
|
2012
|
$param = {key1 => 1, key2 => 2};
|
2012
|
2013
|
$insert_param = $dbi->insert_param($param);
|
2013
|
2014
|
$sql = <<"EOS";
|
...
|
...
|
@@ -2019,7 +2020,7 @@ is($dbi->select(table => 'table1')->one->{key2}, 2);
|
2019
|
2020
|
|
2020
|
2021
|
$dbi = DBIx::Custom->connect(%memory);
|
2021
|
2022
|
$dbi->quote('"');
|
2022
|
|
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
|
|
2023
|
+$dbi->execute($create_table1_2);
|
2023
|
2024
|
$param = {key1 => 1, key2 => 2};
|
2024
|
2025
|
$insert_param = $dbi->insert_param($param);
|
2025
|
2026
|
$sql = <<"EOS";
|
...
|
...
|
@@ -2035,7 +2036,7 @@ like($@, qr/not safety/);
|
2035
|
2036
|
|
2036
|
2037
|
test 'join';
|
2037
|
2038
|
$dbi = DBIx::Custom->connect(%memory);
|
2038
|
|
-$dbi->execute($create_table_default);
|
|
2039
|
+$dbi->execute($create_table1);
|
2039
|
2040
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
2040
|
2041
|
$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
|
2041
|
2042
|
$dbi->execute('create table table2 (key1 char(255), key3 char(255));');
|
...
|
...
|
@@ -2095,7 +2096,7 @@ is_deeply($rows, [{table1__key1 => 1}]);
|
2095
|
2096
|
|
2096
|
2097
|
$dbi = DBIx::Custom->connect(%memory);
|
2097
|
2098
|
$dbi->quote('"');
|
2098
|
|
-$dbi->execute($create_table_default);
|
|
2099
|
+$dbi->execute($create_table1);
|
2099
|
2100
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
2100
|
2101
|
$dbi->execute('create table table2 (key1 char(255), key3 char(255));');
|
2101
|
2102
|
$dbi->insert(table => 'table2', param => {key1 => 1, key3 => 5});
|
...
|
...
|
@@ -2123,7 +2124,7 @@ is_deeply($rows, [{table1_key1 => 1, table2_key1 => 1, key2 => 2, key3 => 5}],
|
2123
|
2124
|
}
|
2124
|
2125
|
|
2125
|
2126
|
$dbi = DBIx::Custom->connect(%memory);
|
2126
|
|
-$dbi->execute($create_table_default);
|
|
2127
|
+$dbi->execute($create_table1);
|
2127
|
2128
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
2128
|
2129
|
$sql = <<"EOS";
|
2129
|
2130
|
left outer join (
|
...
|
...
|
@@ -2143,7 +2144,7 @@ $rows = $dbi->select(
|
2143
|
2144
|
is_deeply($rows, [{latest_table1__key1 => 1}]);
|
2144
|
2145
|
|
2145
|
2146
|
$dbi = DBIx::Custom->connect(%memory);
|
2146
|
|
-$dbi->execute($create_table_default);
|
|
2147
|
+$dbi->execute($create_table1);
|
2147
|
2148
|
$dbi->execute('create table table2 (key1 char(255), key3 char(255));');
|
2148
|
2149
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
2149
|
2150
|
$dbi->insert(table => 'table2', param => {key1 => 1, key3 => 4});
|
...
|
...
|
@@ -2173,7 +2174,7 @@ $result = $dbi->select(
|
2173
|
2174
|
is_deeply($result->all, [{'table2.key3' => 4}]);
|
2174
|
2175
|
|
2175
|
2176
|
$dbi = DBIx::Custom->connect(%memory);
|
2176
|
|
-$dbi->execute($create_table_default);
|
|
2177
|
+$dbi->execute($create_table1);
|
2177
|
2178
|
$dbi->execute('create table table2 (key1 char(255), key3 char(255));');
|
2178
|
2179
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
2179
|
2180
|
$dbi->insert(table => 'table2', param => {key1 => 1, key3 => 4});
|
...
|
...
|
@@ -2192,7 +2193,7 @@ is_deeply($result->all, [{'table2.key3' => 4}]);
|
2192
|
2193
|
|
2193
|
2194
|
test 'mycolumn';
|
2194
|
2195
|
$dbi = MyDBI8->connect(%memory);
|
2195
|
|
-$dbi->execute($create_table_default);
|
|
2196
|
+$dbi->execute($create_table1);
|
2196
|
2197
|
$dbi->execute('create table table2 (key1 char(255), key3 char(255));');
|
2197
|
2198
|
$dbi->setup_model;
|
2198
|
2199
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
...
|
...
|
@@ -2257,14 +2258,14 @@ test 'dbi method from model';
|
2257
|
2258
|
}
|
2258
|
2259
|
}
|
2259
|
2260
|
$dbi = MyDBI9->connect(%memory);
|
2260
|
|
-$dbi->execute($create_table_default);
|
|
2261
|
+$dbi->execute($create_table1);
|
2261
|
2262
|
$model = $dbi->model('table1');
|
2262
|
2263
|
eval{$model->execute('select * from table1')};
|
2263
|
2264
|
ok(!$@);
|
2264
|
2265
|
|
2265
|
2266
|
test 'column table option';
|
2266
|
2267
|
$dbi = MyDBI9->connect(%memory);
|
2267
|
|
-$dbi->execute($create_table_default);
|
|
2268
|
+$dbi->execute($create_table1);
|
2268
|
2269
|
$dbi->execute('create table table2 (key1 char(255), key3 char(255));');
|
2269
|
2270
|
$dbi->setup_model;
|
2270
|
2271
|
$dbi->execute('insert into table1 (key1, key2) values (1, 2);');
|
...
|
...
|
@@ -2370,7 +2371,7 @@ is($row->{key1_length}, length $binary);
|
2370
|
2371
|
|
2371
|
2372
|
test 'create_model';
|
2372
|
2373
|
$dbi = DBIx::Custom->connect(%memory);
|
2373
|
|
-$dbi->execute($create_table_default);
|
|
2374
|
+$dbi->execute($create_table1);
|
2374
|
2375
|
$dbi->execute('create table table2 (key1 char(255), key3 char(255));');
|
2375
|
2376
|
|
2376
|
2377
|
$dbi->create_model(
|
...
|
...
|
@@ -2431,7 +2432,7 @@ is_deeply($param, {key1 => [1, 2, 3, 4], key2 => [1, 2, 3], key3 => [1, 2, 3]});
|
2431
|
2432
|
|
2432
|
2433
|
test 'select() param option';
|
2433
|
2434
|
$dbi = DBIx::Custom->connect(%memory);
|
2434
|
|
-$dbi->execute($create_table_default);
|
|
2435
|
+$dbi->execute($create_table1);
|
2435
|
2436
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
2436
|
2437
|
$dbi->insert(table => 'table1', param => {key1 => 2, key2 => 3});
|
2437
|
2438
|
$dbi->execute('create table table2 (key1 char(255), key3 char(255));');
|
...
|
...
|
@@ -2450,7 +2451,7 @@ is_deeply($rows, [{table1_key1 => 2, key2 => 3, key3 => 5}]);
|
2450
|
2451
|
|
2451
|
2452
|
test 'select() wrap option';
|
2452
|
2453
|
$dbi = DBIx::Custom->connect(%memory);
|
2453
|
|
-$dbi->execute($create_table_default);
|
|
2454
|
+$dbi->execute($create_table1);
|
2454
|
2455
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
2455
|
2456
|
$dbi->insert(table => 'table1', param => {key1 => 2, key2 => 3});
|
2456
|
2457
|
$rows = $dbi->select(
|
...
|
...
|
@@ -2471,7 +2472,7 @@ like($@, qr/array/);
|
2471
|
2472
|
|
2472
|
2473
|
test 'select() string where';
|
2473
|
2474
|
$dbi = DBIx::Custom->connect(%memory);
|
2474
|
|
-$dbi->execute($create_table_default);
|
|
2475
|
+$dbi->execute($create_table1);
|
2475
|
2476
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
2476
|
2477
|
$dbi->insert(table => 'table1', param => {key1 => 2, key2 => 3});
|
2477
|
2478
|
$rows = $dbi->select(
|
...
|
...
|
@@ -2482,7 +2483,7 @@ $rows = $dbi->select(
|
2482
|
2483
|
is_deeply($rows, [{key1 => 1, key2 => 2}]);
|
2483
|
2484
|
|
2484
|
2485
|
$dbi = DBIx::Custom->connect(%memory);
|
2485
|
|
-$dbi->execute($create_table_default);
|
|
2486
|
+$dbi->execute($create_table1);
|
2486
|
2487
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
2487
|
2488
|
$dbi->insert(table => 'table1', param => {key1 => 2, key2 => 3});
|
2488
|
2489
|
$rows = $dbi->select(
|
...
|
...
|
@@ -2496,7 +2497,7 @@ is_deeply($rows, [{key1 => 1, key2 => 2}]);
|
2496
|
2497
|
|
2497
|
2498
|
test 'delete() string where';
|
2498
|
2499
|
$dbi = DBIx::Custom->connect(%memory);
|
2499
|
|
-$dbi->execute($create_table_default);
|
|
2500
|
+$dbi->execute($create_table1);
|
2500
|
2501
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
2501
|
2502
|
$dbi->insert(table => 'table1', param => {key1 => 2, key2 => 3});
|
2502
|
2503
|
$dbi->delete(
|
...
|
...
|
@@ -2508,7 +2509,7 @@ $rows = $dbi->select(table => 'table1')->all;
|
2508
|
2509
|
is_deeply($rows, [{key1 => 2, key2 => 3}]);
|
2509
|
2510
|
|
2510
|
2511
|
$dbi = DBIx::Custom->connect(%memory);
|
2511
|
|
-$dbi->execute($create_table_default);
|
|
2512
|
+$dbi->execute($create_table1);
|
2512
|
2513
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
2513
|
2514
|
$dbi->insert(table => 'table1', param => {key1 => 2, key2 => 3});
|
2514
|
2515
|
$dbi->delete(
|
...
|
...
|
@@ -2524,7 +2525,7 @@ is_deeply($rows, [{key1 => 2, key2 => 3}]);
|
2524
|
2525
|
|
2525
|
2526
|
test 'update() string where';
|
2526
|
2527
|
$dbi = DBIx::Custom->connect(%memory);
|
2527
|
|
-$dbi->execute($create_table_default);
|
|
2528
|
+$dbi->execute($create_table1);
|
2528
|
2529
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
2529
|
2530
|
$dbi->update(
|
2530
|
2531
|
table => 'table1',
|
...
|
...
|
@@ -2536,7 +2537,7 @@ $rows = $dbi->select(table => 'table1')->all;
|
2536
|
2537
|
is_deeply($rows, [{key1 => 5, key2 => 2}]);
|
2537
|
2538
|
|
2538
|
2539
|
$dbi = DBIx::Custom->connect(%memory);
|
2539
|
|
-$dbi->execute($create_table_default);
|
|
2540
|
+$dbi->execute($create_table1);
|
2540
|
2541
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
2541
|
2542
|
$dbi->update(
|
2542
|
2543
|
table => 'table1',
|
...
|
...
|
@@ -2551,7 +2552,7 @@ is_deeply($rows, [{key1 => 5, key2 => 2}]);
|
2551
|
2552
|
|
2552
|
2553
|
test 'insert id and primary_key option';
|
2553
|
2554
|
$dbi = DBIx::Custom->connect(%memory);
|
2554
|
|
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
|
|
2555
|
+$dbi->execute($create_table1_2);
|
2555
|
2556
|
$dbi->insert(
|
2556
|
2557
|
primary_key => ['key1', 'key2'],
|
2557
|
2558
|
table => 'table1',
|
...
|
...
|
@@ -2575,7 +2576,7 @@ is($dbi->select(table => 'table1')->one->{key2}, 2);
|
2575
|
2576
|
is($dbi->select(table => 'table1')->one->{key3}, 3);
|
2576
|
2577
|
|
2577
|
2578
|
$dbi = DBIx::Custom->connect(%memory);
|
2578
|
|
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
|
|
2579
|
+$dbi->execute($create_table1_2);
|
2579
|
2580
|
$dbi->insert(
|
2580
|
2581
|
{key3 => 3},
|
2581
|
2582
|
primary_key => ['key1', 'key2'],
|
...
|
...
|
@@ -2589,7 +2590,7 @@ is($dbi->select(table => 'table1')->one->{key3}, 3);
|
2589
|
2590
|
|
2590
|
2591
|
test 'model insert id and primary_key option';
|
2591
|
2592
|
$dbi = MyDBI6->connect(%memory);
|
2592
|
|
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
|
|
2593
|
+$dbi->execute($create_table1_2);
|
2593
|
2594
|
$dbi->model('table1')->insert(
|
2594
|
2595
|
id => [1, 2],
|
2595
|
2596
|
param => {key3 => 3}
|
...
|
...
|
@@ -2601,7 +2602,7 @@ is($row->{key2}, 2);
|
2601
|
2602
|
is($row->{key3}, 3);
|
2602
|
2603
|
|
2603
|
2604
|
$dbi = MyDBI6->connect(%memory);
|
2604
|
|
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
|
|
2605
|
+$dbi->execute($create_table1_2);
|
2605
|
2606
|
$dbi->model('table1')->insert(
|
2606
|
2607
|
{key3 => 3},
|
2607
|
2608
|
id => [1, 2]
|
...
|
...
|
@@ -2614,7 +2615,7 @@ is($row->{key3}, 3);
|
2614
|
2615
|
|
2615
|
2616
|
test 'update and id option';
|
2616
|
2617
|
$dbi = DBIx::Custom->connect(%memory);
|
2617
|
|
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
|
|
2618
|
+$dbi->execute($create_table1_2);
|
2618
|
2619
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
|
2619
|
2620
|
$dbi->update(
|
2620
|
2621
|
table => 'table1',
|
...
|
...
|
@@ -2639,7 +2640,7 @@ is($dbi->select(table => 'table1')->one->{key2}, 2);
|
2639
|
2640
|
is($dbi->select(table => 'table1')->one->{key3}, 4);
|
2640
|
2641
|
|
2641
|
2642
|
$dbi = DBIx::Custom->connect(%memory);
|
2642
|
|
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
|
|
2643
|
+$dbi->execute($create_table1_2);
|
2643
|
2644
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
|
2644
|
2645
|
$dbi->update(
|
2645
|
2646
|
{key3 => 4},
|
...
|
...
|
@@ -2654,7 +2655,7 @@ is($dbi->select(table => 'table1')->one->{key3}, 4);
|
2654
|
2655
|
|
2655
|
2656
|
test 'model update and id option';
|
2656
|
2657
|
$dbi = MyDBI6->connect(%memory);
|
2657
|
|
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
|
|
2658
|
+$dbi->execute($create_table1_2);
|
2658
|
2659
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
|
2659
|
2660
|
$dbi->model('table1')->update(
|
2660
|
2661
|
id => [1, 2],
|
...
|
...
|
@@ -2669,7 +2670,7 @@ is($row->{key3}, 4);
|
2669
|
2670
|
|
2670
|
2671
|
test 'delete and id option';
|
2671
|
2672
|
$dbi = DBIx::Custom->connect(%memory);
|
2672
|
|
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
|
|
2673
|
+$dbi->execute($create_table1_2);
|
2673
|
2674
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
|
2674
|
2675
|
$dbi->delete(
|
2675
|
2676
|
table => 'table1',
|
...
|
...
|
@@ -2689,7 +2690,7 @@ is_deeply($dbi->select(table => 'table1')->all, []);
|
2689
|
2690
|
|
2690
|
2691
|
test 'model delete and id option';
|
2691
|
2692
|
$dbi = MyDBI6->connect(%memory);
|
2692
|
|
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
|
|
2693
|
+$dbi->execute($create_table1_2);
|
2693
|
2694
|
$dbi->execute("create table table2 (key1, key2, key3)");
|
2694
|
2695
|
$dbi->execute("create table table3 (key1, key2, key3)");
|
2695
|
2696
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
|
...
|
...
|
@@ -2705,7 +2706,7 @@ is_deeply($dbi->select(table => 'table1')->all, []);
|
2705
|
2706
|
|
2706
|
2707
|
test 'select and id option';
|
2707
|
2708
|
$dbi = DBIx::Custom->connect(%memory);
|
2708
|
|
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
|
|
2709
|
+$dbi->execute($create_table1_2);
|
2709
|
2710
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
|
2710
|
2711
|
$result = $dbi->select(
|
2711
|
2712
|
table => 'table1',
|
...
|
...
|
@@ -2744,7 +2745,7 @@ is($row->{key3}, 3);
|
2744
|
2745
|
|
2745
|
2746
|
test 'model select_at';
|
2746
|
2747
|
$dbi = MyDBI6->connect(%memory);
|
2747
|
|
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
|
|
2748
|
+$dbi->execute($create_table1_2);
|
2748
|
2749
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
|
2749
|
2750
|
$result = $dbi->model('table1')->select(id => [1, 2]);
|
2750
|
2751
|
$row = $result->one;
|
...
|
...
|
@@ -2754,7 +2755,7 @@ is($row->{key3}, 3);
|
2754
|
2755
|
|
2755
|
2756
|
test 'column separator is default .';
|
2756
|
2757
|
$dbi = MyDBI7->connect(%memory);
|
2757
|
|
-$dbi->execute($create_table_default);
|
|
2758
|
+$dbi->execute($create_table1);
|
2758
|
2759
|
$dbi->execute('create table table2 (key1 char(255), key3 char(255));');
|
2759
|
2760
|
$dbi->setup_model;
|
2760
|
2761
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
...
|
...
|
@@ -3173,7 +3174,7 @@ is($result->type_rule2_on->fetch_first->[0], '1bde');
|
3173
|
3174
|
|
3174
|
3175
|
test 'separator';
|
3175
|
3176
|
$dbi = DBIx::Custom->connect(%memory);
|
3176
|
|
-$dbi->execute($create_table_default);
|
|
3177
|
+$dbi->execute($create_table1);
|
3177
|
3178
|
$dbi->execute('create table table2 (key1 char(255), key3 char(255));');
|
3178
|
3179
|
|
3179
|
3180
|
$dbi->create_model(
|
...
|
...
|
@@ -3230,7 +3231,7 @@ is_deeply($model2->select->one, {key1 => 1, key3 => 3});
|
3230
|
3231
|
|
3231
|
3232
|
test 'filter_off';
|
3232
|
3233
|
$dbi = DBIx::Custom->connect(%memory);
|
3233
|
|
-$dbi->execute($create_table_default);
|
|
3234
|
+$dbi->execute($create_table1);
|
3234
|
3235
|
$dbi->execute('create table table2 (key1 char(255), key3 char(255));');
|
3235
|
3236
|
|
3236
|
3237
|
$dbi->create_model(
|
...
|
...
|
@@ -3254,7 +3255,7 @@ ok($dbi->can('available_datatype'));
|
3254
|
3255
|
|
3255
|
3256
|
test 'select prefix option';
|
3256
|
3257
|
$dbi = DBIx::Custom->connect(%memory);
|
3257
|
|
-$dbi->execute($create_table_default);
|
|
3258
|
+$dbi->execute($create_table1);
|
3258
|
3259
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
|
3259
|
3260
|
$rows = $dbi->select(prefix => 'key1,', column => 'key2', table => 'table1')->all;
|
3260
|
3261
|
is_deeply($rows, [{key1 => 1, key2 => 2}], "table");
|
...
|
...
|
@@ -3381,7 +3382,7 @@ is_deeply($result->header, [qw/h1 h2/]);
|
3381
|
3382
|
|
3382
|
3383
|
test 'Named placeholder :name(operater) syntax';
|
3383
|
3384
|
$dbi->execute('drop table table1');
|
3384
|
|
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
|
|
3385
|
+$dbi->execute($create_table1_2);
|
3385
|
3386
|
$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});
|
3386
|
3387
|
$dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});
|
3387
|
3388
|
|
...
|
...
|
@@ -3454,7 +3455,7 @@ $rows = [
|
3454
|
3455
|
|
3455
|
3456
|
test 'result';
|
3456
|
3457
|
$dbi = DBIx::Custom->connect(%memory);
|
3457
|
|
-$dbi->execute($create_table_default);
|
|
3458
|
+$dbi->execute($create_table1);
|
3458
|
3459
|
$dbi->insert({key1 => 1, key2 => 2}, table => 'table1');
|
3459
|
3460
|
$dbi->insert({key1 => 3, key2 => 4}, table => 'table1');
|
3460
|
3461
|
|
...
|
...
|
@@ -3490,7 +3491,7 @@ $row = $result->fetch_hash_first;
|
3490
|
3491
|
ok(!$row, "no row fetch");
|
3491
|
3492
|
|
3492
|
3493
|
$dbi = DBIx::Custom->connect(%memory);
|
3493
|
|
-$dbi->execute($create_table_default);
|
|
3494
|
+$dbi->execute($create_table1);
|
3494
|
3495
|
$dbi->insert({key1 => 1, key2 => 2}, table => 'table1');
|
3495
|
3496
|
$dbi->insert({key1 => 3, key2 => 4}, table => 'table1');
|
3496
|
3497
|
$dbi->insert({key1 => 5, key2 => 6}, table => 'table1');
|
...
|
...
|
@@ -3529,7 +3530,7 @@ eval {$result->fetch_hash_multi};
|
3529
|
3530
|
like($@, qr/Row count must be specified/, "Not specified row count");
|
3530
|
3531
|
|
3531
|
3532
|
$dbi = DBIx::Custom->connect(%memory);
|
3532
|
|
-$dbi->execute($create_table_default);
|
|
3533
|
+$dbi->execute($create_table1);
|
3533
|
3534
|
$dbi->insert({key1 => 1, key2 => 2}, table => 'table1');
|
3534
|
3535
|
$dbi->insert({key1 => 3, key2 => 4}, table => 'table1');
|
3535
|
3536
|
|