kimoto/DBIx-Custom at c1c6c1ffb000e1773ce43fa17f84ec0783f3995c ・ Gitprep

DBIx-Custom / t / common.t /

Newer ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ Older

2674 lines | 86.52kb

added common test executing ... bd35c82 Yuki Kimoto authored on 2011-08-07	1	use Test::More;
	2	use strict;
	3	use warnings;
test cleanup c05af26 Yuki Kimoto authored on 2011-08-10	4	use Encode qw/encode_utf8/;
cleanup test 41a84b1 Yuki Kimoto authored on 2011-08-10	5	use FindBin;
	6	use lib "$FindBin::Bin/common";
	7
added common test executing ... bd35c82 Yuki Kimoto authored on 2011-08-07	8	my $dbi;
	9
	10	plan skip_all => $ENV{DBIX_CUSTOM_SKIP_MESSAGE} \|\| 'common.t is always skipped'
	11	unless $ENV{DBIX_CUSTOM_TEST_RUN}
	12	&& eval { $dbi = DBIx::Custom->connect; 1 };
	13
	14	plan 'no_plan';
	15
test cleanup e5d6e22 Yuki Kimoto authored on 2011-08-10	16	use MyDBI1;
	17	{
	18	package MyDBI4;
	19
	20	use strict;
	21	use warnings;
	22
	23	use base 'DBIx::Custom';
	24
	25	sub connect {
	26	my $self = shift->SUPER::connect(@_);
	27
	28	$self->include_model(
	29	MyModel2 => [
	30	'book',
	31	{class => 'Company', name => 'company'}
	32	]
	33	);
	34	}
	35
	36	package MyModel2::Base1;
	37
	38	use strict;
	39	use warnings;
	40
	41	use base 'DBIx::Custom::Model';
	42
	43	package MyModel2::book;
	44
	45	use strict;
	46	use warnings;
	47
	48	use base 'MyModel2::Base1';
	49
	50	sub insert {
	51	my ($self, $param) = @_;
	52
	53	return $self->SUPER::insert(param => $param);
	54	}
	55
	56	sub list { shift->select; }
	57
	58	package MyModel2::Company;
	59
	60	use strict;
	61	use warnings;
	62
	63	use base 'MyModel2::Base1';
	64
	65	sub insert {
	66	my ($self, $param) = @_;
	67
	68	return $self->SUPER::insert(param => $param);
	69	}
	70
	71	sub list { shift->select; }
	72	}
	73	{
	74	package MyDBI5;
	75
	76	use strict;
	77	use warnings;
	78
	79	use base 'DBIx::Custom';
	80
	81	sub connect {
	82	my $self = shift->SUPER::connect(@_);
	83
	84	$self->include_model('MyModel4');
	85	}
	86	}
	87	{
	88	package MyDBI6;
	89
	90	use base 'DBIx::Custom';
	91
	92	sub connect {
	93	my $self = shift->SUPER::connect(@_);
	94
	95	$self->include_model('MyModel5');
	96
	97	return $self;
	98	}
	99	}
	100	{
	101	package MyDBI7;
	102
	103	use base 'DBIx::Custom';
	104
	105	sub connect {
	106	my $self = shift->SUPER::connect(@_);
	107
	108	$self->include_model('MyModel6');
	109
	110
	111	return $self;
	112	}
	113	}
	114	{
	115	package MyDBI8;
	116
	117	use base 'DBIx::Custom';
	118
	119	sub connect {
	120	my $self = shift->SUPER::connect(@_);
	121
	122	$self->include_model('MyModel7');
	123
	124	return $self;
	125	}
	126	}
	127
	128	{
	129	package MyDBI9;
	130
	131	use base 'DBIx::Custom';
	132
	133	sub connect {
	134	my $self = shift->SUPER::connect(@_);
	135
cleanup test ee32d7d Yuki Kimoto authored on 2011-08-10	136	$self->include_model('MyModel8');
test cleanup e5d6e22 Yuki Kimoto authored on 2011-08-10	137
	138	return $self;
	139	}
	140	}
	141
cleanup test de329a9 Yuki Kimoto authored on 2011-08-08	142	$SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ /DEPRECATED/};
	143	sub test { print "# $_[0]\n" }
	144
added common test executing ... bd35c82 Yuki Kimoto authored on 2011-08-07	145	# Constant
	146	my $create_table1 = $dbi->create_table1;
cleanup test 058b0fd Yuki Kimoto authored on 2011-08-08	147	my $create_table1_2 = $dbi->create_table1_2;
test cleanup 723ba3d Yuki Kimoto authored on 2011-08-10	148	my $create_table1_type = $dbi->create_table1_type;
test cleanup af035c8 Yuki Kimoto authored on 2011-08-10	149	my $create_table2 = $dbi->create_table2;
test cleanup 1d42ba8 Yuki Kimoto authored on 2011-08-10	150	my $create_table2_2 = $dbi->create_table2_2;
	151	my $create_table3 = $dbi->create_table3;
test cleanup af035c8 Yuki Kimoto authored on 2011-08-10	152	my $create_table_reserved = $dbi->create_table_reserved;
cleanup test bf179eb Yuki Kimoto authored on 2011-08-10	153	my $q = substr($dbi->quote, 0, 1);
	154	my $p = substr($dbi->quote, 1, 1) \|\| $q;
added common test executing ... bd35c82 Yuki Kimoto authored on 2011-08-07	155
	156	# Variable
cleanup test de329a9 Yuki Kimoto authored on 2011-08-08	157	# Variables
	158	my $builder;
	159	my $datas;
	160	my $sth;
	161	my $source;
	162	my @sources;
	163	my $select_source;
	164	my $insert_source;
	165	my $update_source;
	166	my $param;
	167	my $params;
	168	my $sql;
	169	my $result;
	170	my $row;
	171	my @rows;
	172	my $rows;
	173	my $query;
	174	my @queries;
	175	my $select_query;
	176	my $insert_query;
	177	my $update_query;
	178	my $ret_val;
	179	my $infos;
added common test executing ... bd35c82 Yuki Kimoto authored on 2011-08-07	180	my $model;
cleanup test de329a9 Yuki Kimoto authored on 2011-08-08	181	my $model2;
	182	my $where;
	183	my $update_param;
	184	my $insert_param;
	185	my $join;
cleanup test a86c18b Yuki Kimoto authored on 2011-08-10	186	my $binary;
added common test executing ... bd35c82 Yuki Kimoto authored on 2011-08-07	187
	188	# Drop table
	189	eval { $dbi->execute('drop table table1') };
	190
	191	# Create table
	192	$dbi->execute($create_table1);
	193	$model = $dbi->create_model(table => 'table1');
	194	$model->insert({key1 => 1, key2 => 2});
	195	is_deeply($model->select->all, [{key1 => 1, key2 => 2}]);
	196
cleanup test de329a9 Yuki Kimoto authored on 2011-08-08	197	test 'DBIx::Custom::Result test';
	198	$dbi->delete_all(table => 'table1');
	199	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	200	$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
	201	$source = "select key1, key2 from table1";
	202	$query = $dbi->create_query($source);
	203	$result = $dbi->execute($query);
	204
	205	@rows = ();
	206	while (my $row = $result->fetch) {
	207	push @rows, [@$row];
	208	}
	209	is_deeply(\@rows, [[1, 2], [3, 4]], "fetch");
	210
	211	$result = $dbi->execute($query);
	212	@rows = ();
	213	while (my $row = $result->fetch_hash) {
	214	push @rows, {%$row};
	215	}
	216	is_deeply(\@rows, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}], "fetch_hash");
	217
	218	$result = $dbi->execute($query);
	219	$rows = $result->fetch_all;
	220	is_deeply($rows, [[1, 2], [3, 4]], "fetch_all");
	221
	222	$result = $dbi->execute($query);
	223	$rows = $result->fetch_hash_all;
	224	is_deeply($rows, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}], "all");
	225
	226	test 'Insert query return value';
	227	$source = "insert into table1 {insert_param key1 key2}";
	228	$query = $dbi->execute($source, {}, query => 1);
	229	$ret_val = $dbi->execute($query, param => {key1 => 1, key2 => 2});
	230	ok($ret_val);
	231
	232	test 'Direct query';
	233	$dbi->delete_all(table => 'table1');
	234	$insert_source = "insert into table1 {insert_param key1 key2}";
	235	$dbi->execute($insert_source, param => {key1 => 1, key2 => 2});
	236	$result = $dbi->execute('select * from table1;');
	237	$rows = $result->all;
	238	is_deeply($rows, [{key1 => 1, key2 => 2}]);
	239
	240	test 'Filter basic';
	241	$dbi->delete_all(table => 'table1');
	242	$dbi->register_filter(twice => sub { $_[0] * 2},
	243	three_times => sub { $_[0] * 3});
	244
	245	$insert_source = "insert into table1 {insert_param key1 key2};";
	246	$insert_query = $dbi->execute($insert_source, {}, query => 1);
	247	$insert_query->filter({key1 => 'twice'});
	248	$dbi->execute($insert_query, param => {key1 => 1, key2 => 2});
	249	$result = $dbi->execute('select * from table1;');
	250	$rows = $result->filter({key2 => 'three_times'})->all;
	251	is_deeply($rows, [{key1 => 2, key2 => 6}], "filter fetch_filter");
	252
	253	test 'Filter in';
	254	$dbi->delete_all(table => 'table1');
	255	$insert_source = "insert into table1 {insert_param key1 key2};";
	256	$insert_query = $dbi->execute($insert_source, {}, query => 1);
	257	$dbi->execute($insert_query, param => {key1 => 2, key2 => 4});
	258	$select_source = "select * from table1 where {in table1.key1 2} and {in table1.key2 2}";
	259	$select_query = $dbi->execute($select_source,{}, query => 1);
	260	$select_query->filter({'table1.key1' => 'twice'});
	261	$result = $dbi->execute($select_query, param => {'table1.key1' => [1,5], 'table1.key2' => [2,4]});
	262	$rows = $result->all;
	263	is_deeply($rows, [{key1 => 2, key2 => 4}], "filter");
	264
cleanup test 08c3c54 Yuki Kimoto authored on 2011-08-08	265	test 'DBIx::Custom::SQLTemplate basic tag';
	266	$dbi->execute('drop table table1');
cleanup test 058b0fd Yuki Kimoto authored on 2011-08-08	267	$dbi->execute($create_table1_2);
cleanup test 08c3c54 Yuki Kimoto authored on 2011-08-08	268	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});
	269	$dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});
	270
	271	$source = "select * from table1 where key1 = :key1 and {<> key2} and {< key3} and {> key4} and {>= key5};";
	272	$query = $dbi->execute($source, {}, query => 1);
	273	$result = $dbi->execute($query, param => {key1 => 1, key2 => 3, key3 => 4, key4 => 3, key5 => 5});
	274	$rows = $result->all;
	275	is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}], "basic tag1");
	276
	277	$source = "select * from table1 where key1 = :key1 and {<> key2} and {< key3} and {> key4} and {>= key5};";
	278	$query = $dbi->execute($source, {}, query => 1);
	279	$result = $dbi->execute($query, {key1 => 1, key2 => 3, key3 => 4, key4 => 3, key5 => 5});
	280	$rows = $result->all;
	281	is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}], "basic tag1");
	282
	283	$source = "select * from table1 where {<= key1} and {like key2};";
	284	$query = $dbi->execute($source, {}, query => 1);
	285	$result = $dbi->execute($query, param => {key1 => 1, key2 => '%2%'});
	286	$rows = $result->all;
	287	is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}], "basic tag2");
	288
	289	test 'DIB::Custom::SQLTemplate in tag';
	290	$dbi->execute('drop table table1');
cleanup test 058b0fd Yuki Kimoto authored on 2011-08-08	291	$dbi->execute($create_table1_2);
cleanup test 08c3c54 Yuki Kimoto authored on 2011-08-08	292	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});
	293	$dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});
	294
	295	$source = "select * from table1 where {in key1 2};";
	296	$query = $dbi->execute($source, {}, query => 1);
	297	$result = $dbi->execute($query, param => {key1 => [9, 1]});
	298	$rows = $result->all;
	299	is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}], "basic");
	300
	301	test 'DBIx::Custom::SQLTemplate insert tag';
	302	$dbi->delete_all(table => 'table1');
	303	$insert_source = 'insert into table1 {insert_param key1 key2 key3 key4 key5}';
	304	$dbi->execute($insert_source, param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});
	305
	306	$result = $dbi->execute('select * from table1;');
	307	$rows = $result->all;
	308	is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}], "basic");
	309
	310	test 'DBIx::Custom::SQLTemplate update tag';
	311	$dbi->delete_all(table => 'table1');
	312	$insert_source = "insert into table1 {insert_param key1 key2 key3 key4 key5}";
	313	$dbi->execute($insert_source, param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});
	314	$dbi->execute($insert_source, param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});
	315
	316	$update_source = 'update table1 {update_param key1 key2 key3 key4} where {= key5}';
	317	$dbi->execute($update_source, param => {key1 => 1, key2 => 1, key3 => 1, key4 => 1, key5 => 5});
	318
	319	$result = $dbi->execute('select * from table1 order by key1;');
	320	$rows = $result->all;
	321	is_deeply($rows, [{key1 => 1, key2 => 1, key3 => 1, key4 => 1, key5 => 5},
	322	{key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10}], "basic");
	323
cleanup test 058b0fd Yuki Kimoto authored on 2011-08-08	324	test 'Named placeholder';
	325	$dbi->execute('drop table table1');
	326	$dbi->execute($create_table1_2);
	327	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});
	328	$dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});
	329
	330	$source = "select * from table1 where key1 = :key1 and key2 = :key2";
	331	$result = $dbi->execute($source, param => {key1 => 1, key2 => 2});
	332	$rows = $result->all;
	333	is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}]);
	334
	335	$source = "select * from table1 where key1 = \n:key1\n and key2 = :key2";
	336	$result = $dbi->execute($source, param => {key1 => 1, key2 => 2});
	337	$rows = $result->all;
	338	is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}]);
	339
	340	$source = "select * from table1 where key1 = :key1 or key1 = :key1";
	341	$result = $dbi->execute($source, param => {key1 => [1, 2]});
	342	$rows = $result->all;
	343	is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}]);
	344
	345	$source = "select * from table1 where key1 = :table1.key1 and key2 = :table1.key2";
	346	$result = $dbi->execute(
	347	$source,
	348	param => {'table1.key1' => 1, 'table1.key2' => 1},
	349	filter => {'table1.key2' => sub { $_[0] * 2 }}
	350	);
	351	$rows = $result->all;
	352	is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}]);
	353
	354	$dbi->execute('drop table table1');
	355	$dbi->execute($create_table1);
	356	$dbi->insert(table => 'table1', param => {key1 => '2011-10-14 12:19:18', key2 => 2});
	357	$source = "select * from table1 where key1 = '2011-10-14 12:19:18' and key2 = :key2";
	358	$result = $dbi->execute(
	359	$source,
	360	param => {'key2' => 2},
	361	);
	362
	363	$rows = $result->all;
	364	is_deeply($rows, [{key1 => '2011-10-14 12:19:18', key2 => 2}]);
	365
	366	$dbi->delete_all(table => 'table1');
	367	$dbi->insert(table => 'table1', param => {key1 => 'a:b c:d', key2 => 2});
	368	$source = "select * from table1 where key1 = 'a\\:b c\\:d' and key2 = :key2";
	369	$result = $dbi->execute(
	370	$source,
	371	param => {'key2' => 2},
	372	);
	373	$rows = $result->all;
	374	is_deeply($rows, [{key1 => 'a:b c:d', key2 => 2}]);
	375
test cleanup fcea70e Yuki Kimoto authored on 2011-08-10	376	test 'Error case';
	377	eval {DBIx::Custom->connect(dsn => 'dbi:SQLit')};
	378	ok($@, "connect error");
	379
	380	eval{$dbi->execute("{p }", {}, query => 1)};
	381	ok($@, "create_query invalid SQL template");
added EXPERIMENTAL DBIx::Cus... 38f4ef1 Yuki Kimoto authored on 2011-08-09	382
cleanup test 1c9417d Yuki Kimoto authored on 2011-08-10	383	test 'insert';
cleanup test bf179eb Yuki Kimoto authored on 2011-08-10	384	eval { $dbi->execute('drop table table1') };
	385	$dbi->execute($create_table1);
cleanup test 1c9417d Yuki Kimoto authored on 2011-08-10	386	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	387	$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
	388	$result = $dbi->execute('select * from table1;');
	389	$rows = $result->all;
	390	is_deeply($rows, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}], "basic");
	391
	392	$dbi->execute('delete from table1');
	393	$dbi->register_filter(
	394	twice => sub { $_[0] * 2 },
	395	three_times => sub { $_[0] * 3 }
	396	);
	397	$dbi->default_bind_filter('twice');
	398	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2}, filter => {key1 => 'three_times'});
	399	$result = $dbi->execute('select * from table1;');
	400	$rows = $result->all;
	401	is_deeply($rows, [{key1 => 3, key2 => 4}], "filter");
	402	$dbi->default_bind_filter(undef);
	403
cleanup test bf179eb Yuki Kimoto authored on 2011-08-10	404	$dbi->execute('drop table table1');
	405	$dbi->execute($create_table1);
cleanup test 1c9417d Yuki Kimoto authored on 2011-08-10	406	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2}, append => ' ');
	407	$rows = $dbi->select(table => 'table1')->all;
	408	is_deeply($rows, [{key1 => 1, key2 => 2}], 'insert append');
	409
	410	eval{$dbi->insert(table => 'table1', noexist => 1)};
	411	like($@, qr/noexist/, "invalid");
	412
	413	eval{$dbi->insert(table => 'table', param => {';' => 1})};
	414	like($@, qr/safety/);
	415
cleanup test bf179eb Yuki Kimoto authored on 2011-08-10	416	eval { $dbi->execute("drop table ${q}table$p") };
test cleanup af035c8 Yuki Kimoto authored on 2011-08-10	417	$dbi->execute($create_table_reserved);
cleanup test 1c9417d Yuki Kimoto authored on 2011-08-10	418	$dbi->apply_filter('table', select => {out => sub { $_[0] * 2}});
	419	$dbi->insert(table => 'table', param => {select => 1});
cleanup test bf179eb Yuki Kimoto authored on 2011-08-10	420	$result = $dbi->execute("select * from ${q}table$p");
cleanup test 1c9417d Yuki Kimoto authored on 2011-08-10	421	$rows = $result->all;
test cleanup af035c8 Yuki Kimoto authored on 2011-08-10	422	is_deeply($rows, [{select => 2, update => undef}], "reserved word");
cleanup test 1c9417d Yuki Kimoto authored on 2011-08-10	423
cleanup test bf179eb Yuki Kimoto authored on 2011-08-10	424	eval { $dbi->execute('drop table table1') };
cleanup test 1c9417d Yuki Kimoto authored on 2011-08-10	425	$dbi->execute($create_table1);
	426	$dbi->insert({key1 => 1, key2 => 2}, table => 'table1');
	427	$dbi->insert({key1 => 3, key2 => 4}, table => 'table1');
	428	$result = $dbi->execute('select * from table1;');
	429	$rows = $result->all;
	430	is_deeply($rows, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}], "basic");
	431
cleanup test bf179eb Yuki Kimoto authored on 2011-08-10	432	eval { $dbi->execute('drop table table1') };
cleanup test 1c9417d Yuki Kimoto authored on 2011-08-10	433	$dbi->execute($create_table1);
	434	$dbi->insert(table => 'table1', param => {key1 => \"'1'", key2 => 2});
	435	$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
	436	$result = $dbi->execute('select * from table1;');
	437	$rows = $result->all;
	438	is_deeply($rows, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}], "basic");
	439
test cleanup c05af26 Yuki Kimoto authored on 2011-08-10	440	test 'update';
	441	eval { $dbi->execute('drop table table1') };
	442	$dbi->execute($create_table1_2);
	443	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});
	444	$dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});
	445	$dbi->update(table => 'table1', param => {key2 => 11}, where => {key1 => 1});
test cleanup af035c8 Yuki Kimoto authored on 2011-08-10	446	$result = $dbi->execute('select * from table1 order by key1;');
test cleanup c05af26 Yuki Kimoto authored on 2011-08-10	447	$rows = $result->all;
	448	is_deeply($rows, [{key1 => 1, key2 => 11, key3 => 3, key4 => 4, key5 => 5},
	449	{key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10}],
	450	"basic");
	451
	452	$dbi->execute("delete from table1");
	453	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});
	454	$dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});
	455	$dbi->update(table => 'table1', param => {key2 => 12}, where => {key2 => 2, key3 => 3});
test cleanup af035c8 Yuki Kimoto authored on 2011-08-10	456	$result = $dbi->execute('select * from table1 order by key1;');
test cleanup c05af26 Yuki Kimoto authored on 2011-08-10	457	$rows = $result->all;
	458	is_deeply($rows, [{key1 => 1, key2 => 12, key3 => 3, key4 => 4, key5 => 5},
	459	{key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10}],
	460	"update key same as search key");
	461
	462	$dbi->update(table => 'table1', param => {key2 => [12]}, where => {key2 => 2, key3 => 3});
test cleanup af035c8 Yuki Kimoto authored on 2011-08-10	463	$result = $dbi->execute('select * from table1 order by key1;');
test cleanup c05af26 Yuki Kimoto authored on 2011-08-10	464	$rows = $result->all;
	465	is_deeply($rows, [{key1 => 1, key2 => 12, key3 => 3, key4 => 4, key5 => 5},
	466	{key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10}],
	467	"update key same as search key : param is array ref");
	468
	469	$dbi->execute("delete from table1");
	470	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});
	471	$dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});
	472	$dbi->register_filter(twice => sub { $_[0] * 2 });
	473	$dbi->update(table => 'table1', param => {key2 => 11}, where => {key1 => 1},
	474	filter => {key2 => sub { $_[0] * 2 }});
test cleanup af035c8 Yuki Kimoto authored on 2011-08-10	475	$result = $dbi->execute('select * from table1 order by key1;');
test cleanup c05af26 Yuki Kimoto authored on 2011-08-10	476	$rows = $result->all;
	477	is_deeply($rows, [{key1 => 1, key2 => 22, key3 => 3, key4 => 4, key5 => 5},
	478	{key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10}],
	479	"filter");
	480
	481	$result = $dbi->update(table => 'table1', param => {key2 => 11}, where => {key1 => 1}, append => ' ');
	482
	483	eval{$dbi->update(table => 'table1', where => {key1 => 1}, noexist => 1)};
	484	like($@, qr/noexist/, "invalid");
	485
	486	eval{$dbi->update(table => 'table1')};
	487	like($@, qr/where/, "not contain where");
	488
	489	eval { $dbi->execute('drop table table1') };
	490	$dbi->execute($create_table1);
	491	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	492	$where = $dbi->where;
	493	$where->clause(['and', 'key1 = :key1', 'key2 = :key2']);
	494	$where->param({key1 => 1, key2 => 2});
	495	$dbi->update(table => 'table1', param => {key1 => 3}, where => $where);
	496	$result = $dbi->select(table => 'table1');
	497	is_deeply($result->all, [{key1 => 3, key2 => 2}], 'update() where');
	498
	499	eval { $dbi->execute('drop table table1') };
	500	$dbi->execute($create_table1);
	501	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	502	$dbi->update(
	503	table => 'table1',
	504	param => {key1 => 3},
	505	where => [
	506	['and', 'key1 = :key1', 'key2 = :key2'],
	507	{key1 => 1, key2 => 2}
	508	]
	509	);
	510	$result = $dbi->select(table => 'table1');
	511	is_deeply($result->all, [{key1 => 3, key2 => 2}], 'update() where');
	512
	513	eval { $dbi->execute('drop table table1') };
	514	$dbi->execute($create_table1);
	515	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	516	$where = $dbi->where;
	517	$where->clause(['and', 'key2 = :key2']);
	518	$where->param({key2 => 2});
	519	$dbi->update(table => 'table1', param => {key1 => 3}, where => $where);
	520	$result = $dbi->select(table => 'table1');
	521	is_deeply($result->all, [{key1 => 3, key2 => 2}], 'update() where');
	522
	523	eval{$dbi->update(table => 'table1', param => {';' => 1})};
	524	like($@, qr/safety/);
	525
	526	eval{$dbi->update(table => 'table1', param => {'key1' => 1}, where => {';' => 1})};
	527	like($@, qr/safety/);
	528
	529	eval { $dbi->execute('drop table table1') };
	530	eval { $dbi->execute("drop table ${q}table$p") };
test cleanup af035c8 Yuki Kimoto authored on 2011-08-10	531	$dbi->execute($create_table_reserved);
test cleanup c05af26 Yuki Kimoto authored on 2011-08-10	532	$dbi->apply_filter('table', select => {out => sub { $_[0] * 2}});
	533	$dbi->apply_filter('table', update => {out => sub { $_[0] * 3}});
	534	$dbi->insert(table => 'table', param => {select => 1});
	535	$dbi->update(table => 'table', where => {select => 1}, param => {update => 2});
	536	$result = $dbi->execute("select * from ${q}table$p");
	537	$rows = $result->all;
	538	is_deeply($rows, [{select => 2, update => 6}], "reserved word");
	539
	540	eval {$dbi->update_all(table => 'table', param => {';' => 2}) };
	541	like($@, qr/safety/);
	542
	543	eval { $dbi->execute("drop table ${q}table$p") };
test cleanup af035c8 Yuki Kimoto authored on 2011-08-10	544	$dbi->execute($create_table_reserved);
test cleanup c05af26 Yuki Kimoto authored on 2011-08-10	545	$dbi->apply_filter('table', select => {out => sub { $_[0] * 2}});
	546	$dbi->apply_filter('table', update => {out => sub { $_[0] * 3}});
	547	$dbi->insert(table => 'table', param => {select => 1});
	548	$dbi->update(table => 'table', where => {'table.select' => 1}, param => {update => 2});
	549	$result = $dbi->execute("select * from ${q}table$p");
	550	$rows = $result->all;
	551	is_deeply($rows, [{select => 2, update => 6}], "reserved word");
	552
	553	eval { $dbi->execute('drop table table1') };
	554	$dbi->execute($create_table1_2);
	555	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});
	556	$dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});
	557	$dbi->update({key2 => 11}, table => 'table1', where => {key1 => 1});
test cleanup af035c8 Yuki Kimoto authored on 2011-08-10	558	$result = $dbi->execute('select * from table1 order by key1;');
test cleanup c05af26 Yuki Kimoto authored on 2011-08-10	559	$rows = $result->all;
	560	is_deeply($rows, [{key1 => 1, key2 => 11, key3 => 3, key4 => 4, key5 => 5},
	561	{key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10}],
	562	"basic");
	563
	564	eval { $dbi->execute('drop table table1') };
	565	$dbi->execute($create_table1_2);
	566	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});
	567	$dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});
	568	$dbi->update(table => 'table1', param => {key2 => \"'11'"}, where => {key1 => 1});
test cleanup af035c8 Yuki Kimoto authored on 2011-08-10	569	$result = $dbi->execute('select * from table1 order by key1;');
test cleanup c05af26 Yuki Kimoto authored on 2011-08-10	570	$rows = $result->all;
	571	is_deeply($rows, [{key1 => 1, key2 => 11, key3 => 3, key4 => 4, key5 => 5},
	572	{key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10}],
	573	"basic");
	574
	575	test 'update_all';
	576	eval { $dbi->execute('drop table table1') };
	577	$dbi->execute($create_table1_2);
	578	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});
	579	$dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});
	580	$dbi->register_filter(twice => sub { $_[0] * 2 });
	581	$dbi->update_all(table => 'table1', param => {key2 => 10}, filter => {key2 => 'twice'});
	582	$result = $dbi->execute('select * from table1;');
	583	$rows = $result->all;
	584	is_deeply($rows, [{key1 => 1, key2 => 20, key3 => 3, key4 => 4, key5 => 5},
	585	{key1 => 6, key2 => 20, key3 => 8, key4 => 9, key5 => 10}],
	586	"filter");
	587
	588
	589	test 'delete';
	590	eval { $dbi->execute('drop table table1') };
	591	$dbi->execute($create_table1);
	592	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	593	$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
	594	$dbi->delete(table => 'table1', where => {key1 => 1});
	595	$result = $dbi->execute('select * from table1;');
	596	$rows = $result->all;
	597	is_deeply($rows, [{key1 => 3, key2 => 4}], "basic");
	598
	599	$dbi->execute("delete from table1;");
	600	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	601	$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
	602	$dbi->register_filter(twice => sub { $_[0] * 2 });
	603	$dbi->delete(table => 'table1', where => {key2 => 1}, filter => {key2 => 'twice'});
	604	$result = $dbi->execute('select * from table1;');
	605	$rows = $result->all;
	606	is_deeply($rows, [{key1 => 3, key2 => 4}], "filter");
	607
	608	$dbi->delete(table => 'table1', where => {key1 => 1}, append => ' ');
	609
	610	$dbi->delete_all(table => 'table1');
	611	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	612	$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
	613	$dbi->delete(table => 'table1', where => {key1 => 1, key2 => 2});
	614	$rows = $dbi->select(table => 'table1')->all;
	615	is_deeply($rows, [{key1 => 3, key2 => 4}], "delete multi key");
	616
	617	eval{$dbi->delete(table => 'table1', where => {key1 => 1}, noexist => 1)};
	618	like($@, qr/noexist/, "invalid");
	619
	620	eval { $dbi->execute('drop table table1') };
	621	$dbi->execute($create_table1);
	622	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	623	$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
	624	$where = $dbi->where;
	625	$where->clause(['and', 'key1 = :key1', 'key2 = :key2']);
	626	$where->param({ke1 => 1, key2 => 2});
	627	$dbi->delete(table => 'table1', where => $where);
	628	$result = $dbi->select(table => 'table1');
	629	is_deeply($result->all, [{key1 => 3, key2 => 4}], 'delete() where');
	630
	631	eval { $dbi->execute('drop table table1') };
	632	$dbi->execute($create_table1);
	633	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	634	$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
	635	$dbi->delete(
	636	table => 'table1',
	637	where => [
	638	['and', 'key1 = :key1', 'key2 = :key2'],
	639	{ke1 => 1, key2 => 2}
	640	]
	641	);
	642	$result = $dbi->select(table => 'table1');
	643	is_deeply($result->all, [{key1 => 3, key2 => 4}], 'delete() where');
	644
	645	eval { $dbi->execute('drop table table1') };
test cleanup af035c8 Yuki Kimoto authored on 2011-08-10	646	$dbi->execute($create_table1);
test cleanup c05af26 Yuki Kimoto authored on 2011-08-10	647	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	648	$dbi->delete(table => 'table1', where => {key1 => 1}, prefix => ' ');
	649	$result = $dbi->execute('select * from table1;');
	650	$rows = $result->all;
	651	is_deeply($rows, [], "basic");
	652
	653	test 'delete error';
	654	eval { $dbi->execute('drop table table1') };
	655	$dbi->execute($create_table1);
	656	eval{$dbi->delete(table => 'table1')};
	657	like($@, qr/"where" must be specified/,
	658	"where key-value pairs not specified");
	659
	660	eval{$dbi->delete(table => 'table1', where => {';' => 1})};
	661	like($@, qr/safety/);
	662
	663	$dbi = DBIx::Custom->connect;
	664	eval { $dbi->execute("drop table ${q}table$p") };
test cleanup af035c8 Yuki Kimoto authored on 2011-08-10	665	$dbi->execute($create_table_reserved);
test cleanup c05af26 Yuki Kimoto authored on 2011-08-10	666	$dbi->apply_filter('table', select => {out => sub { $_[0] * 2}});
	667	$dbi->insert(table => 'table', param => {select => 1});
	668	$dbi->delete(table => 'table', where => {select => 1});
	669	$result = $dbi->execute("select * from ${q}table$p");
	670	$rows = $result->all;
	671	is_deeply($rows, [], "reserved word");
	672
	673	test 'delete_all';
	674	eval { $dbi->execute('drop table table1') };
	675	$dbi->execute($create_table1);
	676	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	677	$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
	678	$dbi->delete_all(table => 'table1');
	679	$result = $dbi->execute('select * from table1;');
	680	$rows = $result->all;
	681	is_deeply($rows, [], "basic");
	682
	683
	684	test 'select';
	685	eval { $dbi->execute('drop table table1') };
	686	$dbi->execute($create_table1);
	687	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	688	$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
	689	$rows = $dbi->select(table => 'table1')->all;
	690	is_deeply($rows, [{key1 => 1, key2 => 2},
	691	{key1 => 3, key2 => 4}], "table");
	692
	693	$rows = $dbi->select(table => 'table1', column => ['key1'])->all;
	694	is_deeply($rows, [{key1 => 1}, {key1 => 3}], "table and columns and where key");
	695
	696	$rows = $dbi->select(table => 'table1', where => {key1 => 1})->all;
	697	is_deeply($rows, [{key1 => 1, key2 => 2}], "table and columns and where key");
	698
	699	$rows = $dbi->select(table => 'table1', column => ['key1'], where => {key1 => 3})->all;
	700	is_deeply($rows, [{key1 => 3}], "table and columns and where key");
	701
	702	$rows = $dbi->select(table => 'table1', append => "order by key1 desc limit 1")->all;
	703	is_deeply($rows, [{key1 => 3, key2 => 4}], "append statement");
	704
	705	$dbi->register_filter(decrement => sub { $_[0] - 1 });
	706	$rows = $dbi->select(table => 'table1', where => {key1 => 2}, filter => {key1 => 'decrement'})
	707	->all;
	708	is_deeply($rows, [{key1 => 1, key2 => 2}], "filter");
	709
test cleanup af035c8 Yuki Kimoto authored on 2011-08-10	710	eval { $dbi->execute("drop table table2") };
	711	$dbi->execute($create_table2);
test cleanup c05af26 Yuki Kimoto authored on 2011-08-10	712	$dbi->insert(table => 'table2', param => {key1 => 1, key3 => 5});
	713	$rows = $dbi->select(
	714	table => [qw/table1 table2/],
	715	column => 'table1.key1 as table1_key1, table2.key1 as table2_key1, key2, key3',
	716	where => {'table1.key2' => 2},
	717	relation => {'table1.key1' => 'table2.key1'}
	718	)->all;
	719	is_deeply($rows, [{table1_key1 => 1, table2_key1 => 1, key2 => 2, key3 => 5}], "relation : exists where");
	720
	721	$rows = $dbi->select(
	722	table => [qw/table1 table2/],
	723	column => ['table1.key1 as table1_key1', 'table2.key1 as table2_key1', 'key2', 'key3'],
	724	relation => {'table1.key1' => 'table2.key1'}
	725	)->all;
	726	is_deeply($rows, [{table1_key1 => 1, table2_key1 => 1, key2 => 2, key3 => 5}], "relation : no exists where");
	727
	728	eval{$dbi->select(table => 'table1', noexist => 1)};
	729	like($@, qr/noexist/, "invalid");
	730
	731	$dbi = DBIx::Custom->connect;
test cleanup af035c8 Yuki Kimoto authored on 2011-08-10	732	eval { $dbi->execute("drop table ${q}table$p") };
	733	$dbi->execute($create_table_reserved);
test cleanup c05af26 Yuki Kimoto authored on 2011-08-10	734	$dbi->apply_filter('table', select => {out => sub { $_[0] * 2}});
	735	$dbi->insert(table => 'table', param => {select => 1, update => 2});
	736	$result = $dbi->select(table => 'table', where => {select => 1});
	737	$rows = $result->all;
	738	is_deeply($rows, [{select => 2, update => 2}], "reserved word");
	739
	740	test 'fetch filter';
	741	eval { $dbi->execute('drop table table1') };
	742	$dbi->register_filter(
	743	twice => sub { $_[0] * 2 },
	744	three_times => sub { $_[0] * 3 }
	745	);
	746	$dbi->default_fetch_filter('twice');
	747	$dbi->execute($create_table1);
	748	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	749	$result = $dbi->select(table => 'table1');
	750	$result->filter({key1 => 'three_times'});
	751	$row = $result->one;
	752	is_deeply($row, {key1 => 3, key2 => 4}, "default_fetch_filter and filter");
	753
	754	test 'filters';
	755	$dbi = DBIx::Custom->new;
	756
	757	is($dbi->filters->{decode_utf8}->(encode_utf8('あ')),
	758	'あ', "decode_utf8");
	759
	760	is($dbi->filters->{encode_utf8}->('あ'),
	761	encode_utf8('あ'), "encode_utf8");
	762
cleanup test 163ab3d Yuki Kimoto authored on 2011-08-10	763	test 'transaction1';
test cleanup c05af26 Yuki Kimoto authored on 2011-08-10	764	$dbi = DBIx::Custom->connect;
	765	eval { $dbi->execute('drop table table1') };
	766	$dbi->execute($create_table1);
	767	$dbi->dbh->begin_work;
	768	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	769	$dbi->insert(table => 'table1', param => {key1 => 2, key2 => 3});
	770	$dbi->dbh->commit;
	771	$result = $dbi->select(table => 'table1');
	772	is_deeply(scalar $result->all, [{key1 => 1, key2 => 2}, {key1 => 2, key2 => 3}],
	773	"commit");
	774
	775	$dbi = DBIx::Custom->connect;
	776	eval { $dbi->execute('drop table table1') };
	777	$dbi->execute($create_table1);
	778	$dbi->dbh->begin_work(0);
	779	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	780	$dbi->dbh->rollback;
	781
	782	$result = $dbi->select(table => 'table1');
	783	ok(! $result->fetch_first, "rollback");
	784
	785	test 'execute';
	786	eval { $dbi->execute('drop table table1') };
	787	$dbi->execute($create_table1);
	788	{
	789	local $Carp::Verbose = 0;
	790	eval{$dbi->execute('select * frm table1')};
	791	like($@, qr/\Qselect * frm table1;/, "fail prepare");
	792	like($@, qr/\.t /, "fail : not verbose");
	793	}
	794	{
	795	local $Carp::Verbose = 1;
	796	eval{$dbi->execute('select * frm table1')};
	797	like($@, qr/Custom.*\.t /s, "fail : verbose");
	798	}
	799
	800	eval{$dbi->execute('select * from table1', no_exists => 1)};
	801	like($@, qr/wrong/, "invald SQL");
	802
	803	$query = $dbi->execute('select * from table1 where key1 = :key1', {}, query => 1);
	804	$dbi->dbh->disconnect;
	805	eval{$dbi->execute($query, param => {key1 => {a => 1}})};
	806	ok($@, "execute fail");
	807
	808	{
	809	local $Carp::Verbose = 0;
	810	eval{$dbi->execute('select * from table1 where {0 key1}', {}, query => 1)};
	811	like($@, qr/\Q.t /, "caller spec : not vebose");
	812	}
	813	{
	814	local $Carp::Verbose = 1;
	815	eval{$dbi->execute('select * from table1 where {0 key1}', {}, query => 1)};
	816	like($@, qr/QueryBuilder.*\.t /s, "caller spec : not vebose");
	817	}
	818
	819
cleanup test 163ab3d Yuki Kimoto authored on 2011-08-10	820	test 'transaction2';
test cleanup c05af26 Yuki Kimoto authored on 2011-08-10	821	$dbi = DBIx::Custom->connect;
	822	eval { $dbi->execute('drop table table1') };
	823	$dbi->execute($create_table1);
	824
	825	$dbi->begin_work;
	826
	827	eval {
	828	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	829	die "Error";
	830	$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
	831	};
	832
	833	$dbi->rollback if $@;
	834
	835	$result = $dbi->select(table => 'table1');
	836	$rows = $result->all;
	837	is_deeply($rows, [], "rollback");
	838
	839	$dbi->begin_work;
	840
	841	eval {
	842	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	843	$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
	844	};
	845
	846	$dbi->commit unless $@;
	847
	848	$result = $dbi->select(table => 'table1');
	849	$rows = $result->all;
	850	is_deeply($rows, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}], "commit");
	851
	852	$dbi->dbh->{AutoCommit} = 0;
	853	eval{ $dbi->begin_work };
	854	ok($@, "exception");
	855	$dbi->dbh->{AutoCommit} = 1;
added EXPERIMENTAL DBIx::Cus... 38f4ef1 Yuki Kimoto authored on 2011-08-09	856
test cleanup 723ba3d Yuki Kimoto authored on 2011-08-10	857	test 'cache';
	858	eval { $dbi->execute('drop table table1') };
	859	$dbi->cache(1);
	860	$dbi->execute($create_table1);
	861	$source = 'select * from table1 where key1 = :key1 and key2 = :key2;';
	862	$dbi->execute($source, {}, query => 1);
	863	is_deeply($dbi->{_cached}->{$source},
	864	{sql => "select * from table1 where key1 = ? and key2 = ?;", columns => ['key1', 'key2'], tables => []}, "cache");
	865
	866	eval { $dbi->execute('drop table table1') };
	867	$dbi->execute($create_table1);
	868	$dbi->{_cached} = {};
	869	$dbi->cache(0);
	870	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	871	is(scalar keys %{$dbi->{_cached}}, 0, 'not cache');
	872
	873	test 'execute';
	874	eval { $dbi->execute('drop table table1') };
	875	$dbi->execute($create_table1);
	876	{
	877	local $Carp::Verbose = 0;
	878	eval{$dbi->execute('select * frm table1')};
	879	like($@, qr/\Qselect * frm table1;/, "fail prepare");
	880	like($@, qr/\.t /, "fail : not verbose");
	881	}
	882	{
	883	local $Carp::Verbose = 1;
	884	eval{$dbi->execute('select * frm table1')};
	885	like($@, qr/Custom.*\.t /s, "fail : verbose");
	886	}
	887
	888	eval{$dbi->execute('select * from table1', no_exists => 1)};
	889	like($@, qr/wrong/, "invald SQL");
	890
	891	$query = $dbi->execute('select * from table1 where key1 = :key1', {}, query => 1);
	892	$dbi->dbh->disconnect;
	893	eval{$dbi->execute($query, param => {key1 => {a => 1}})};
	894	ok($@, "execute fail");
	895
	896	{
	897	local $Carp::Verbose = 0;
	898	eval{$dbi->execute('select * from table1 where {0 key1}', {}, query => 1)};
	899	like($@, qr/\Q.t /, "caller spec : not vebose");
	900	}
	901	{
	902	local $Carp::Verbose = 1;
	903	eval{$dbi->execute('select * from table1 where {0 key1}', {}, query => 1)};
	904	like($@, qr/QueryBuilder.*\.t /s, "caller spec : not vebose");
	905	}
	906
	907	test 'method';
	908	$dbi->method(
	909	one => sub { 1 }
	910	);
	911	$dbi->method(
	912	two => sub { 2 }
	913	);
	914	$dbi->method({
	915	twice => sub {
	916	my $self = shift;
	917	return $_[0] * 2;
	918	}
	919	});
	920
	921	is($dbi->one, 1, "first");
	922	is($dbi->two, 2, "second");
	923	is($dbi->twice(5), 10 , "second");
	924
	925	eval {$dbi->XXXXXX};
	926	ok($@, "not exists");
	927
	928	test 'out filter';
	929	$dbi = DBIx::Custom->connect;
	930	eval { $dbi->execute('drop table table1') };
	931	$dbi->execute($create_table1);
	932	$dbi->register_filter(twice => sub { $_[0] * 2 });
	933	$dbi->register_filter(three_times => sub { $_[0] * 3});
	934	$dbi->apply_filter(
	935	'table1', 'key1' => {out => 'twice', in => 'three_times'},
	936	'key2' => {out => 'three_times', in => 'twice'});
	937	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	938	$result = $dbi->execute('select * from table1;');
	939	$row = $result->fetch_hash_first;
	940	is_deeply($row, {key1 => 2, key2 => 6}, "insert");
	941	$result = $dbi->select(table => 'table1');
	942	$row = $result->one;
	943	is_deeply($row, {key1 => 6, key2 => 12}, "insert");
	944
	945	$dbi = DBIx::Custom->connect;
	946	eval { $dbi->execute('drop table table1') };
	947	$dbi->execute($create_table1);
	948	$dbi->register_filter(twice => sub { $_[0] * 2 });
	949	$dbi->register_filter(three_times => sub { $_[0] * 3});
	950	$dbi->apply_filter(
	951	'table1', 'key1' => {out => 'twice', in => 'three_times'},
	952	'key2' => {out => 'three_times', in => 'twice'});
	953	$dbi->apply_filter(
	954	'table1', 'key1' => {out => undef}
	955	);
	956	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	957	$result = $dbi->execute('select * from table1;');
	958	$row = $result->one;
	959	is_deeply($row, {key1 => 1, key2 => 6}, "insert");
	960
	961	$dbi = DBIx::Custom->connect;
	962	eval { $dbi->execute('drop table table1') };
	963	$dbi->execute($create_table1);
	964	$dbi->register_filter(twice => sub { $_[0] * 2 });
	965	$dbi->apply_filter(
	966	'table1', 'key1' => {out => 'twice', in => 'twice'}
	967	);
	968	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2}, filter => {key1 => undef});
	969	$dbi->update(table => 'table1', param => {key1 => 2}, where => {key2 => 2});
	970	$result = $dbi->execute('select * from table1;');
	971	$row = $result->one;
	972	is_deeply($row, {key1 => 4, key2 => 2}, "update");
	973
	974	$dbi = DBIx::Custom->connect;
	975	eval { $dbi->execute('drop table table1') };
	976	$dbi->execute($create_table1);
	977	$dbi->register_filter(twice => sub { $_[0] * 2 });
	978	$dbi->apply_filter(
	979	'table1', 'key1' => {out => 'twice', in => 'twice'}
	980	);
	981	$dbi->insert(table => 'table1', param => {key1 => 2, key2 => 2}, filter => {key1=> undef});
	982	$dbi->delete(table => 'table1', where => {key1 => 1});
	983	$result = $dbi->execute('select * from table1;');
	984	$rows = $result->all;
	985	is_deeply($rows, [], "delete");
	986
	987	$dbi = DBIx::Custom->connect;
	988	eval { $dbi->execute('drop table table1') };
	989	$dbi->execute($create_table1);
	990	$dbi->register_filter(twice => sub { $_[0] * 2 });
	991	$dbi->apply_filter(
	992	'table1', 'key1' => {out => 'twice', in => 'twice'}
	993	);
	994	$dbi->insert(table => 'table1', param => {key1 => 2, key2 => 2}, filter => {key1 => undef});
	995	$result = $dbi->select(table => 'table1', where => {key1 => 1});
	996	$result->filter({'key2' => 'twice'});
	997	$rows = $result->all;
	998	is_deeply($rows, [{key1 => 4, key2 => 4}], "select");
	999
	1000	$dbi = DBIx::Custom->connect;
	1001	eval { $dbi->execute('drop table table1') };
	1002	$dbi->execute($create_table1);
	1003	$dbi->register_filter(twice => sub { $_[0] * 2 });
	1004	$dbi->apply_filter(
	1005	'table1', 'key1' => {out => 'twice', in => 'twice'}
	1006	);
	1007	$dbi->insert(table => 'table1', param => {key1 => 2, key2 => 2}, filter => {key1 => undef});
	1008	$result = $dbi->execute("select * from table1 where key1 = :key1 and key2 = :key2;",
	1009	param => {key1 => 1, key2 => 2},
	1010	table => ['table1']);
	1011	$rows = $result->all;
	1012	is_deeply($rows, [{key1 => 4, key2 => 2}], "execute");
	1013
	1014	$dbi = DBIx::Custom->connect;
	1015	eval { $dbi->execute('drop table table1') };
	1016	$dbi->execute($create_table1);
	1017	$dbi->register_filter(twice => sub { $_[0] * 2 });
	1018	$dbi->apply_filter(
	1019	'table1', 'key1' => {out => 'twice', in => 'twice'}
	1020	);
	1021	$dbi->insert(table => 'table1', param => {key1 => 2, key2 => 2}, filter => {key1 => undef});
	1022	$result = $dbi->execute("select * from {table table1} where key1 = :key1 and key2 = :key2;",
	1023	param => {key1 => 1, key2 => 2});
	1024	$rows = $result->all;
	1025	is_deeply($rows, [{key1 => 4, key2 => 2}], "execute table tag");
	1026
	1027	$dbi = DBIx::Custom->connect;
	1028	eval { $dbi->execute('drop table table1') };
	1029	eval { $dbi->execute('drop table table2') };
	1030	$dbi->execute($create_table1);
	1031	$dbi->execute($create_table2);
	1032	$dbi->register_filter(twice => sub { $_[0] * 2 });
	1033	$dbi->register_filter(three_times => sub { $_[0] * 3 });
	1034	$dbi->apply_filter(
	1035	'table1', 'key2' => {out => 'twice', in => 'twice'}
	1036	);
	1037	$dbi->apply_filter(
	1038	'table2', 'key3' => {out => 'three_times', in => 'three_times'}
	1039	);
	1040	$dbi->insert(table => 'table1', param => {key1 => 5, key2 => 2}, filter => {key2 => undef});
	1041	$dbi->insert(table => 'table2', param => {key1 => 5, key3 => 6}, filter => {key3 => undef});
	1042	$result = $dbi->select(
	1043	table => ['table1', 'table2'],
	1044	column => ['key2', 'key3'],
	1045	where => {'table1.key2' => 1, 'table2.key3' => 2}, relation => {'table1.key1' => 'table2.key1'});
	1046
	1047	$result->filter({'key2' => 'twice'});
	1048	$rows = $result->all;
	1049	is_deeply($rows, [{key2 => 4, key3 => 18}], "select : join");
	1050
	1051	$result = $dbi->select(
	1052	table => ['table1', 'table2'],
	1053	column => ['key2', 'key3'],
	1054	where => {'key2' => 1, 'key3' => 2}, relation => {'table1.key1' => 'table2.key1'});
	1055
	1056	$result->filter({'key2' => 'twice'});
	1057	$rows = $result->all;
	1058	is_deeply($rows, [{key2 => 4, key3 => 18}], "select : join : omit");
	1059
	1060	test 'each_column';
	1061	$dbi = DBIx::Custom->connect;
	1062	eval { $dbi->execute("drop table ${q}table$p") };
	1063	eval { $dbi->execute('drop table table1') };
	1064	eval { $dbi->execute('drop table table2') };
test cleranup 5e1d777 Yuki Kimoto authored on 2011-08-10	1065	eval { $dbi->execute('drop table table3') };
test cleanup 723ba3d Yuki Kimoto authored on 2011-08-10	1066	$dbi->execute($create_table1_type);
	1067	$dbi->execute($create_table2);
	1068
	1069	$infos = [];
	1070	$dbi->each_column(sub {
	1071	my ($self, $table, $column, $cinfo) = @_;
	1072
	1073	if ($table =~ /^table\d/) {
	1074	my $info = [$table, $column, $cinfo->{COLUMN_NAME}];
	1075	push @$infos, $info;
	1076	}
	1077	});
	1078	$infos = [sort { $a->[0] cmp $b->[0] \|\| $a->[1] cmp $b->[1] } @$infos];
	1079	is_deeply($infos,
	1080	[
	1081	['table1', 'key1', 'key1'],
	1082	['table1', 'key2', 'key2'],
	1083	['table2', 'key1', 'key1'],
	1084	['table2', 'key3', 'key3']
	1085	]
	1086
	1087	);
	1088	test 'each_table';
	1089	$dbi = DBIx::Custom->connect;
	1090	eval { $dbi->execute('drop table table1') };
	1091	eval { $dbi->execute('drop table table2') };
	1092	$dbi->execute($create_table2);
	1093	$dbi->execute($create_table1_type);
	1094
	1095	$infos = [];
	1096	$dbi->each_table(sub {
	1097	my ($self, $table, $table_info) = @_;
	1098
	1099	if ($table =~ /^table\d/) {
	1100	my $info = [$table, $table_info->{TABLE_NAME}];
	1101	push @$infos, $info;
	1102	}
	1103	});
	1104	$infos = [sort { $a->[0] cmp $b->[0] \|\| $a->[1] cmp $b->[1] } @$infos];
	1105	is_deeply($infos,
	1106	[
	1107	['table1', 'table1'],
	1108	['table2', 'table2'],
	1109	]
	1110	);
	1111
	1112	test 'limit';
	1113	$dbi = DBIx::Custom->connect;
	1114	eval { $dbi->execute('drop table table1') };
	1115	$dbi->execute($create_table1);
	1116	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	1117	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 4});
	1118	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 6});
	1119	$dbi->register_tag(
	1120	limit => sub {
	1121	my ($count, $offset) = @_;
	1122
	1123	my $s = '';
	1124	$s .= "limit $count";
	1125	$s .= " offset $offset" if defined $offset;
	1126
	1127	return [$s, []];
	1128	}
	1129	);
	1130	$rows = $dbi->select(
	1131	table => 'table1',
	1132	where => {key1 => 1},
	1133	append => "order by key2 {limit 1 0}"
	1134	)->all;
	1135	is_deeply($rows, [{key1 => 1, key2 => 2}]);
	1136	$rows = $dbi->select(
	1137	table => 'table1',
	1138	where => {key1 => 1},
	1139	append => "order by key2 {limit 2 1}"
	1140	)->all;
	1141	is_deeply($rows, [{key1 => 1, key2 => 4},{key1 => 1, key2 => 6}]);
	1142	$rows = $dbi->select(
	1143	table => 'table1',
	1144	where => {key1 => 1},
	1145	append => "order by key2 {limit 1}"
	1146	)->all;
	1147	is_deeply($rows, [{key1 => 1, key2 => 2}]);
	1148
	1149	test 'connect super';
test cleanup e5d6e22 Yuki Kimoto authored on 2011-08-10	1150	$dbi = DBIx::Custom->connect;
test cleanup 723ba3d Yuki Kimoto authored on 2011-08-10	1151	eval { $dbi->execute('drop table table1') };
	1152	$dbi->execute($create_table1);
	1153	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	1154	is($dbi->select(table => 'table1')->one->{key1}, 1);
	1155
test cleanup e5d6e22 Yuki Kimoto authored on 2011-08-10	1156	$dbi = DBIx::Custom->new;
test cleanup 723ba3d Yuki Kimoto authored on 2011-08-10	1157	$dbi->connect;
	1158	eval { $dbi->execute('drop table table1') };
	1159	$dbi->execute($create_table1);
	1160	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	1161	is($dbi->select(table => 'table1')->one->{key1}, 1);
	1162
test cleanup e5d6e22 Yuki Kimoto authored on 2011-08-10	1163	$dbi = DBIx::Custom->connect;
test cleanup 723ba3d Yuki Kimoto authored on 2011-08-10	1164	eval { $dbi->execute('drop table table1') };
	1165	$dbi->execute($create_table1);
	1166	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	1167	is($dbi->select(table => 'table1')->one->{key1}, 1);
	1168
	1169	test 'end_filter';
	1170	$dbi = DBIx::Custom->connect;
	1171	eval { $dbi->execute('drop table table1') };
	1172	$dbi->execute($create_table1);
	1173	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	1174	$result = $dbi->select(table => 'table1');
	1175	$result->filter(key1 => sub { $_[0] * 2 }, key2 => sub { $_[0] * 4 });
	1176	$result->end_filter(key1 => sub { $_[0] * 3 }, key2 => sub { $_[0] * 5 });
	1177	$row = $result->fetch_first;
	1178	is_deeply($row, [6, 40]);
	1179
	1180	$dbi = DBIx::Custom->connect;
	1181	eval { $dbi->execute('drop table table1') };
	1182	$dbi->execute($create_table1);
	1183	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	1184	$result = $dbi->select(table => 'table1');
	1185	$result->filter([qw/key1 key2/] => sub { $_[0] * 2 });
	1186	$result->end_filter([[qw/key1 key2/] => sub { $_[0] * 3 }]);
	1187	$row = $result->fetch_first;
	1188	is_deeply($row, [6, 12]);
	1189
	1190	$dbi = DBIx::Custom->connect;
	1191	eval { $dbi->execute('drop table table1') };
	1192	$dbi->execute($create_table1);
	1193	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	1194	$result = $dbi->select(table => 'table1');
	1195	$result->filter([[qw/key1 key2/] => sub { $_[0] * 2 }]);
	1196	$result->end_filter([qw/key1 key2/] => sub { $_[0] * 3 });
	1197	$row = $result->fetch_first;
	1198	is_deeply($row, [6, 12]);
	1199
	1200	$dbi->register_filter(five_times => sub { $_[0] * 5 });
	1201	$result = $dbi->select(table => 'table1');
	1202	$result->filter(key1 => sub { $_[0] * 2 }, key2 => sub { $_[0] * 4 });
	1203	$result->end_filter({key1 => sub { $_[0] * 3 }, key2 => 'five_times' });
	1204	$row = $result->one;
	1205	is_deeply($row, {key1 => 6, key2 => 40});
	1206
	1207	$dbi->register_filter(five_times => sub { $_[0] * 5 });
	1208	$dbi->apply_filter('table1',
	1209	key1 => {end => sub { $_[0] * 3 } },
	1210	key2 => {end => 'five_times'}
	1211	);
	1212	$result = $dbi->select(table => 'table1');
	1213	$result->filter(key1 => sub { $_[0] * 2 }, key2 => sub { $_[0] * 4 });
	1214	$row = $result->one;
	1215	is_deeply($row, {key1 => 6, key2 => 40}, 'apply_filter');
	1216
	1217	$dbi->register_filter(five_times => sub { $_[0] * 5 });
	1218	$dbi->apply_filter('table1',
	1219	key1 => {end => sub { $_[0] * 3 } },
	1220	key2 => {end => 'five_times'}
	1221	);
	1222	$result = $dbi->select(table => 'table1');
	1223	$result->filter(key1 => sub { $_[0] * 2 }, key2 => sub { $_[0] * 4 });
	1224	$result->filter(key1 => undef);
	1225	$result->end_filter(key1 => undef);
	1226	$row = $result->one;
	1227	is_deeply($row, {key1 => 1, key2 => 40}, 'apply_filter overwrite');
	1228
test cleanup b7c037f Yuki Kimoto authored on 2011-08-10	1229	test 'remove_end_filter and remove_filter';
	1230	$dbi = DBIx::Custom->connect;
	1231	eval { $dbi->execute('drop table table1') };
	1232	$dbi->execute($create_table1);
	1233	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	1234	$result = $dbi->select(table => 'table1');
	1235	$row = $result
	1236	->filter(key1 => sub { $_[0] * 2 }, key2 => sub { $_[0] * 4 })
	1237	->remove_filter
	1238	->end_filter(key1 => sub { $_[0] * 3 }, key2 => sub { $_[0] * 5 })
	1239	->remove_end_filter
	1240	->fetch_first;
	1241	is_deeply($row, [1, 2]);
	1242
	1243	test 'empty where select';
	1244	$dbi = DBIx::Custom->connect;
	1245	eval { $dbi->execute('drop table table1') };
	1246	$dbi->execute($create_table1);
	1247	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	1248	$result = $dbi->select(table => 'table1', where => {});
	1249	$row = $result->one;
	1250	is_deeply($row, {key1 => 1, key2 => 2});
	1251
	1252	test 'select query option';
	1253	$dbi = DBIx::Custom->connect;
	1254	eval { $dbi->execute('drop table table1') };
	1255	$dbi->execute($create_table1);
	1256	$query = $dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2}, query => 1);
	1257	is(ref $query, 'DBIx::Custom::Query');
	1258	$query = $dbi->update(table => 'table1', where => {key1 => 1}, param => {key2 => 2}, query => 1);
	1259	is(ref $query, 'DBIx::Custom::Query');
	1260	$query = $dbi->delete(table => 'table1', where => {key1 => 1}, query => 1);
	1261	is(ref $query, 'DBIx::Custom::Query');
	1262	$query = $dbi->select(table => 'table1', where => {key1 => 1, key2 => 2}, query => 1);
	1263	is(ref $query, 'DBIx::Custom::Query');
	1264
	1265	test 'where';
	1266	$dbi = DBIx::Custom->connect;
	1267	eval { $dbi->execute('drop table table1') };
	1268	$dbi->execute($create_table1);
	1269	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	1270	$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
	1271	$where = $dbi->where->clause(['and', 'key1 = :key1', 'key2 = :key2']);
	1272	is("$where", "where ( key1 = :key1 and key2 = :key2 )", 'no param');
	1273
	1274	$where = $dbi->where
	1275	->clause(['and', 'key1 = :key1', 'key2 = :key2'])
	1276	->param({key1 => 1});
	1277
	1278	$result = $dbi->select(
	1279	table => 'table1',
	1280	where => $where
	1281	);
	1282	$row = $result->all;
	1283	is_deeply($row, [{key1 => 1, key2 => 2}]);
	1284
	1285	$result = $dbi->select(
	1286	table => 'table1',
	1287	where => [
	1288	['and', 'key1 = :key1', 'key2 = :key2'],
	1289	{key1 => 1}
	1290	]
	1291	);
	1292	$row = $result->all;
	1293	is_deeply($row, [{key1 => 1, key2 => 2}]);
	1294
	1295	$where = $dbi->where
	1296	->clause(['and', 'key1 = :key1', 'key2 = :key2'])
	1297	->param({key1 => 1, key2 => 2});
	1298	$result = $dbi->select(
	1299	table => 'table1',
	1300	where => $where
	1301	);
	1302	$row = $result->all;
	1303	is_deeply($row, [{key1 => 1, key2 => 2}]);
	1304
	1305	$where = $dbi->where
	1306	->clause(['and', 'key1 = :key1', 'key2 = :key2'])
	1307	->param({});
	1308	$result = $dbi->select(
	1309	table => 'table1',
	1310	where => $where,
	1311	);
	1312	$row = $result->all;
	1313	is_deeply($row, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}]);
	1314
	1315	$where = $dbi->where
	1316	->clause(['and', ['or', 'key1 > :key1', 'key1 < :key1'], 'key2 = :key2'])
	1317	->param({key1 => [0, 3], key2 => 2});
	1318	$result = $dbi->select(
	1319	table => 'table1',
	1320	where => $where,
	1321	);
	1322	$row = $result->all;
	1323	is_deeply($row, [{key1 => 1, key2 => 2}]);
	1324
	1325	$where = $dbi->where;
	1326	$result = $dbi->select(
	1327	table => 'table1',
	1328	where => $where
	1329	);
	1330	$row = $result->all;
	1331	is_deeply($row, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}]);
	1332
	1333	eval {
	1334	$where = $dbi->where
	1335	->clause(['uuu']);
	1336	$result = $dbi->select(
	1337	table => 'table1',
	1338	where => $where
	1339	);
	1340	};
	1341	ok($@);
	1342
	1343	$where = $dbi->where;
	1344	is("$where", '');
	1345
	1346	$where = $dbi->where
	1347	->clause(['or', ('key1 = :key1') x 2])
	1348	->param({key1 => [1, 3]});
	1349	$result = $dbi->select(
	1350	table => 'table1',
	1351	where => $where,
	1352	);
	1353	$row = $result->all;
	1354	is_deeply($row, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}]);
	1355
	1356	$where = $dbi->where
	1357	->clause(['or', ('key1 = :key1') x 2])
	1358	->param({key1 => [1]});
	1359	$result = $dbi->select(
	1360	table => 'table1',
	1361	where => $where,
	1362	);
	1363	$row = $result->all;
	1364	is_deeply($row, [{key1 => 1, key2 => 2}]);
	1365
	1366	$where = $dbi->where
	1367	->clause(['or', ('key1 = :key1') x 2])
	1368	->param({key1 => 1});
	1369	$result = $dbi->select(
	1370	table => 'table1',
	1371	where => $where,
	1372	);
	1373	$row = $result->all;
	1374	is_deeply($row, [{key1 => 1, key2 => 2}]);
	1375
	1376	$where = $dbi->where
	1377	->clause('key1 = :key1')
	1378	->param({key1 => 1});
	1379	$result = $dbi->select(
	1380	table => 'table1',
	1381	where => $where,
	1382	);
	1383	$row = $result->all;
	1384	is_deeply($row, [{key1 => 1, key2 => 2}]);
	1385
	1386	$where = $dbi->where
	1387	->clause('key1 = :key1 key2 = :key2')
	1388	->param({key1 => 1});
	1389	eval{$where->to_string};
	1390	like($@, qr/one column/);
	1391
	1392	$where = $dbi->where
	1393	->clause(['or', ('key1 = :key1') x 3])
	1394	->param({key1 => [$dbi->not_exists, 1, 3]});
	1395	$result = $dbi->select(
	1396	table => 'table1',
	1397	where => $where,
	1398	);
	1399	$row = $result->all;
	1400	is_deeply($row, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}], 'not_exists');
	1401
	1402	$where = $dbi->where
	1403	->clause(['or', ('key1 = :key1') x 3])
	1404	->param({key1 => [1, $dbi->not_exists, 3]});
	1405	$result = $dbi->select(
	1406	table => 'table1',
	1407	where => $where,
	1408	);
	1409	$row = $result->all;
	1410	is_deeply($row, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}], 'not_exists');
	1411
	1412	$where = $dbi->where
	1413	->clause(['or', ('key1 = :key1') x 3])
	1414	->param({key1 => [1, 3, $dbi->not_exists]});
	1415	$result = $dbi->select(
	1416	table => 'table1',
	1417	where => $where,
	1418	);
	1419	$row = $result->all;
	1420	is_deeply($row, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}], 'not_exists');
	1421
	1422	$where = $dbi->where
	1423	->clause(['or', ('key1 = :key1') x 3])
	1424	->param({key1 => [1, $dbi->not_exists, $dbi->not_exists]});
	1425	$result = $dbi->select(
	1426	table => 'table1',
	1427	where => $where,
	1428	);
	1429	$row = $result->all;
	1430	is_deeply($row, [{key1 => 1, key2 => 2}], 'not_exists');
	1431
	1432	$where = $dbi->where
	1433	->clause(['or', ('key1 = :key1') x 3])
	1434	->param({key1 => [$dbi->not_exists, 1, $dbi->not_exists]});
	1435	$result = $dbi->select(
	1436	table => 'table1',
	1437	where => $where,
	1438	);
	1439	$row = $result->all;
	1440	is_deeply($row, [{key1 => 1, key2 => 2}], 'not_exists');
	1441
	1442	$where = $dbi->where
	1443	->clause(['or', ('key1 = :key1') x 3])
	1444	->param({key1 => [$dbi->not_exists, $dbi->not_exists, 1]});
	1445	$result = $dbi->select(
	1446	table => 'table1',
	1447	where => $where,
	1448	);
	1449	$row = $result->all;
	1450	is_deeply($row, [{key1 => 1, key2 => 2}], 'not_exists');
	1451
	1452	$where = $dbi->where
	1453	->clause(['or', ('key1 = :key1') x 3])
	1454	->param({key1 => [$dbi->not_exists, $dbi->not_exists, $dbi->not_exists]});
	1455	$result = $dbi->select(
	1456	table => 'table1',
	1457	where => $where,
	1458	);
	1459	$row = $result->all;
	1460	is_deeply($row, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}], 'not_exists');
	1461
	1462	$where = $dbi->where
	1463	->clause(['or', ('key1 = :key1') x 3])
	1464	->param({key1 => []});
	1465	$result = $dbi->select(
	1466	table => 'table1',
	1467	where => $where,
	1468	);
	1469	$row = $result->all;
	1470	is_deeply($row, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}], 'not_exists');
	1471
	1472	$where = $dbi->where
	1473	->clause(['and', '{> key1}', '{< key1}' ])
	1474	->param({key1 => [2, $dbi->not_exists]});
	1475	$result = $dbi->select(
	1476	table => 'table1',
	1477	where => $where,
	1478	);
	1479	$row = $result->all;
	1480	is_deeply($row, [{key1 => 3, key2 => 4}], 'not_exists');
	1481
	1482	$where = $dbi->where
	1483	->clause(['and', '{> key1}', '{< key1}' ])
	1484	->param({key1 => [$dbi->not_exists, 2]});
	1485	$result = $dbi->select(
	1486	table => 'table1',
	1487	where => $where,
	1488	);
	1489	$row = $result->all;
	1490	is_deeply($row, [{key1 => 1, key2 => 2}], 'not_exists');
	1491
	1492	$where = $dbi->where
	1493	->clause(['and', '{> key1}', '{< key1}' ])
	1494	->param({key1 => [$dbi->not_exists, $dbi->not_exists]});
	1495	$result = $dbi->select(
	1496	table => 'table1',
	1497	where => $where,
	1498	);
	1499	$row = $result->all;
	1500	is_deeply($row, [{key1 => 1, key2 => 2},{key1 => 3, key2 => 4}], 'not_exists');
	1501
	1502	$where = $dbi->where
	1503	->clause(['and', '{> key1}', '{< key1}' ])
	1504	->param({key1 => [0, 2]});
	1505	$result = $dbi->select(
	1506	table => 'table1',
	1507	where => $where,
	1508	);
	1509	$row = $result->all;
	1510	is_deeply($row, [{key1 => 1, key2 => 2}], 'not_exists');
	1511
	1512	$where = $dbi->where
	1513	->clause(['and', 'key1 is not null', 'key2 is not null' ]);
	1514	$result = $dbi->select(
	1515	table => 'table1',
	1516	where => $where,
	1517	);
	1518	$row = $result->all;
	1519	is_deeply($row, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}], 'not_exists');
	1520
	1521	eval {$dbi->where(ppp => 1) };
	1522	like($@, qr/invalid/);
	1523
	1524	$where = $dbi->where(
	1525	clause => ['and', ['or'], ['and', 'key1 = :key1', 'key2 = :key2']],
	1526	param => {key1 => 1, key2 => 2}
	1527	);
	1528	$result = $dbi->select(
	1529	table => 'table1',
	1530	where => $where,
	1531	);
	1532	$row = $result->all;
	1533	is_deeply($row, [{key1 => 1, key2 => 2}]);
	1534
	1535
	1536	$where = $dbi->where(
	1537	clause => ['and', ['or'], ['or', ':key1', ':key2']],
	1538	param => {}
	1539	);
	1540	$result = $dbi->select(
	1541	table => 'table1',
	1542	where => $where,
	1543	);
	1544	$row = $result->all;
	1545	is_deeply($row, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}]);
	1546
	1547	$where = $dbi->where;
	1548	$where->clause(['and', ':key1{=}']);
	1549	$where->param({key1 => undef});
	1550	$result = $dbi->execute("select * from table1 $where", {key1 => 1});
	1551	$row = $result->all;
	1552	is_deeply($row, [{key1 => 1, key2 => 2}]);
	1553
	1554	$where = $dbi->where;
	1555	$where->clause(['and', ':key1{=}']);
	1556	$where->param({key1 => undef});
	1557	$where->if('defined');
	1558	$where->map;
	1559	$result = $dbi->execute("select * from table1 $where", {key1 => 1});
	1560	$row = $result->all;
	1561	is_deeply($row, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}]);
	1562
	1563	$where = $dbi->where;
	1564	$where->clause(['or', ':key1{=}', ':key1{=}']);
	1565	$where->param({key1 => [undef, undef]});
	1566	$result = $dbi->execute("select * from table1 $where", {key1 => [1, 0]});
	1567	$row = $result->all;
	1568	is_deeply($row, [{key1 => 1, key2 => 2}]);
	1569	$result = $dbi->execute("select * from table1 $where", {key1 => [0, 1]});
	1570	$row = $result->all;
	1571	is_deeply($row, [{key1 => 1, key2 => 2}]);
	1572
	1573	$where = $dbi->where;
	1574	$where->clause(['and', ':key1{=}']);
	1575	$where->param({key1 => [undef, undef]});
	1576	$where->if('defined');
	1577	$where->map;
	1578	$result = $dbi->execute("select * from table1 $where", {key1 => [1, 0]});
	1579	$row = $result->all;
	1580	is_deeply($row, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}]);
	1581	$result = $dbi->execute("select * from table1 $where", {key1 => [0, 1]});
	1582	$row = $result->all;
	1583	is_deeply($row, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}]);
	1584
	1585	$where = $dbi->where;
	1586	$where->clause(['and', ':key1{=}']);
	1587	$where->param({key1 => 0});
	1588	$where->if('length');
	1589	$where->map;
	1590	$result = $dbi->execute("select * from table1 $where", {key1 => 1});
	1591	$row = $result->all;
	1592	is_deeply($row, [{key1 => 1, key2 => 2}]);
	1593
	1594	$where = $dbi->where;
	1595	$where->clause(['and', ':key1{=}']);
	1596	$where->param({key1 => ''});
	1597	$where->if('length');
	1598	$where->map;
	1599	$result = $dbi->execute("select * from table1 $where", {key1 => 1});
	1600	$row = $result->all;
	1601	is_deeply($row, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}]);
	1602
	1603	$where = $dbi->where;
	1604	$where->clause(['and', ':key1{=}']);
	1605	$where->param({key1 => 5});
	1606	$where->if(sub { ($_[0] \|\| '') eq 5 });
	1607	$where->map;
	1608	$result = $dbi->execute("select * from table1 $where", {key1 => 1});
	1609	$row = $result->all;
	1610	is_deeply($row, [{key1 => 1, key2 => 2}]);
	1611
	1612	$where = $dbi->where;
	1613	$where->clause(['and', ':key1{=}']);
	1614	$where->param({key1 => 7});
	1615	$where->if(sub { ($_[0] \|\| '') eq 5 });
	1616	$where->map;
	1617	$result = $dbi->execute("select * from table1 $where", {key1 => 1});
	1618	$row = $result->all;
	1619	is_deeply($row, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}]);
	1620
	1621	$where = $dbi->where;
	1622	$where->param({id => 1, author => 'Ken', price => 1900});
	1623	$where->map(id => 'book.id',
	1624	author => ['book.author', sub { '%' . $_[0] . '%' }],
	1625	price => ['book.price', {if => sub { $_[0] eq 1900 }}]
	1626	);
	1627	is_deeply($where->param, {'book.id' => 1, 'book.author' => '%Ken%',
	1628	'book.price' => 1900});
	1629
	1630	$where = $dbi->where;
	1631	$where->param({id => 0, author => 0, price => 0});
	1632	$where->map(
	1633	id => 'book.id',
	1634	author => ['book.author', sub { '%' . $_[0] . '%' }],
	1635	price => ['book.price', sub { '%' . $_[0] . '%' },
	1636	{if => sub { $_[0] eq 0 }}]
	1637	);
	1638	is_deeply($where->param, {'book.id' => 0, 'book.author' => '%0%', 'book.price' => '%0%'});
	1639
	1640	$where = $dbi->where;
	1641	$where->param({id => '', author => '', price => ''});
	1642	$where->if('length');
	1643	$where->map(
	1644	id => 'book.id',
	1645	author => ['book.author', sub { '%' . $_[0] . '%' }],
	1646	price => ['book.price', sub { '%' . $_[0] . '%' },
	1647	{if => sub { $_[0] eq 1 }}]
	1648	);
	1649	is_deeply($where->param, {});
	1650
	1651	$where = $dbi->where;
	1652	$where->param({id => undef, author => undef, price => undef});
	1653	$where->if('length');
	1654	$where->map(
	1655	id => 'book.id',
	1656	price => ['book.price', {if => 'exists'}]
	1657	);
	1658	is_deeply($where->param, {'book.price' => undef});
	1659
	1660	$where = $dbi->where;
	1661	$where->param({price => 'a'});
	1662	$where->if('length');
	1663	$where->map(
	1664	id => ['book.id', {if => 'exists'}],
	1665	price => ['book.price', sub { '%' . $_[0] }, {if => 'exists'}]
	1666	);
	1667	is_deeply($where->param, {'book.price' => '%a'});
	1668
	1669	$where = $dbi->where;
	1670	$where->param({id => [1, 2], author => 'Ken', price => 1900});
	1671	$where->map(
	1672	id => 'book.id',
	1673	author => ['book.author', sub { '%' . $_[0] . '%' }],
	1674	price => ['book.price', {if => sub { $_[0] eq 1900 }}]
	1675	);
	1676	is_deeply($where->param, {'book.id' => [1, 2], 'book.author' => '%Ken%',
	1677	'book.price' => 1900});
	1678
	1679	$where = $dbi->where;
	1680	$where->if('length');
	1681	$where->param({id => ['', ''], author => 'Ken', price => 1900});
	1682	$where->map(
	1683	id => 'book.id',
	1684	author => ['book.author', sub { '%' . $_[0] . '%' }],
	1685	price => ['book.price', {if => sub { $_[0] eq 1900 }}]
	1686	);
	1687	is_deeply($where->param, {'book.id' => [$dbi->not_exists, $dbi->not_exists], 'book.author' => '%Ken%',
	1688	'book.price' => 1900});
	1689
	1690	$where = $dbi->where;
	1691	$where->param({id => ['', ''], author => 'Ken', price => 1900});
	1692	$where->map(
	1693	id => ['book.id', {if => 'length'}],
	1694	author => ['book.author', sub { '%' . $_[0] . '%' }, {if => 'defined'}],
	1695	price => ['book.price', {if => sub { $_[0] eq 1900 }}]
	1696	);
	1697	is_deeply($where->param, {'book.id' => [$dbi->not_exists, $dbi->not_exists], 'book.author' => '%Ken%',
	1698	'book.price' => 1900});
	1699
	1700	test 'dbi_option default';
	1701	$dbi = DBIx::Custom->new;
	1702	is_deeply($dbi->dbi_option, {});
	1703
	1704	test 'register_tag_processor';
	1705	$dbi = DBIx::Custom->connect;
	1706	$dbi->register_tag_processor(
	1707	a => sub { 1 }
	1708	);
	1709	is($dbi->query_builder->tag_processors->{a}->(), 1);
	1710
	1711	test 'register_tag';
	1712	$dbi = DBIx::Custom->connect;
	1713	$dbi->register_tag(
	1714	b => sub { 2 }
	1715	);
	1716	is($dbi->query_builder->tags->{b}->(), 2);
	1717
	1718	test 'table not specify exception';
	1719	$dbi = DBIx::Custom->connect;
	1720	eval {$dbi->insert};
	1721	like($@, qr/table/);
	1722	eval {$dbi->update};
	1723	like($@, qr/table/);
	1724	eval {$dbi->delete};
	1725	like($@, qr/table/);
	1726	eval {$dbi->select};
	1727	like($@, qr/table/);
test cleanup 723ba3d Yuki Kimoto authored on 2011-08-10	1728
test cleanup 34c937b Yuki Kimoto authored on 2011-08-10	1729	test 'more tests';
	1730	$dbi = DBIx::Custom->connect;
	1731	eval{$dbi->apply_filter('table', 'column', [])};
	1732	like($@, qr/apply_filter/);
	1733
	1734	eval{$dbi->apply_filter('table', 'column', {outer => 2})};
	1735	like($@, qr/apply_filter/);
	1736
	1737	$dbi->apply_filter(
	1738
	1739	);
	1740	$dbi = DBIx::Custom->connect;
	1741	eval { $dbi->execute('drop table table1') };
	1742	$dbi->execute($create_table1);
	1743	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	1744	$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
	1745	$dbi->apply_filter('table1', 'key2',
	1746	{in => sub { $_[0] * 3 }, out => sub { $_[0] * 2 }});
	1747	$rows = $dbi->select(table => 'table1', where => {key2 => 1})->all;
	1748	is_deeply($rows, [{key1 => 1, key2 => 6}]);
	1749
	1750	$dbi = DBIx::Custom->connect;
	1751	eval { $dbi->execute('drop table table1') };
	1752	$dbi->execute($create_table1);
	1753	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	1754	$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
	1755	$dbi->apply_filter('table1', 'key2', {});
	1756	$rows = $dbi->select(table => 'table1', where => {key2 => 2})->all;
	1757	is_deeply($rows, [{key1 => 1, key2 => 2}]);
	1758
	1759	$dbi = DBIx::Custom->connect;
	1760	eval {$dbi->apply_filter('table1', 'key2', {out => 'no'})};
	1761	like($@, qr/not registered/);
	1762	eval {$dbi->apply_filter('table1', 'key2', {in => 'no'})};
	1763	like($@, qr/not registered/);
	1764	$dbi->method({one => sub { 1 }});
	1765	is($dbi->one, 1);
	1766
	1767	eval{DBIx::Custom->connect(dsn => undef)};
	1768	like($@, qr/_connect/);
	1769
	1770	$dbi = DBIx::Custom->connect;
	1771	eval { $dbi->execute('drop table table1') };
	1772	$dbi->execute($create_table1);
	1773	$dbi->register_filter(twice => sub { $_[0] * 2 });
	1774	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2},
	1775	filter => {key1 => 'twice'});
	1776	$row = $dbi->select(table => 'table1')->one;
	1777	is_deeply($row, {key1 => 2, key2 => 2});
	1778	eval {$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2},
	1779	filter => {key1 => 'no'}) };
	1780	like($@, qr//);
	1781
	1782	$dbi->register_filter(one => sub { });
	1783	$dbi->default_fetch_filter('one');
	1784	ok($dbi->default_fetch_filter);
	1785	$dbi->default_bind_filter('one');
	1786	ok($dbi->default_bind_filter);
	1787	eval{$dbi->default_fetch_filter('no')};
	1788	like($@, qr/not registered/);
	1789	eval{$dbi->default_bind_filter('no')};
	1790	like($@, qr/not registered/);
	1791	$dbi->default_bind_filter(undef);
	1792	ok(!defined $dbi->default_bind_filter);
	1793	$dbi->default_fetch_filter(undef);
	1794	ok(!defined $dbi->default_fetch_filter);
	1795	eval {$dbi->execute('select * from table1 {} {= author') };
	1796	like($@, qr/Tag not finished/);
	1797
	1798	$dbi = DBIx::Custom->connect;
	1799	eval { $dbi->execute('drop table table1') };
	1800	$dbi->execute($create_table1);
	1801	$dbi->register_filter(one => sub { 1 });
	1802	$result = $dbi->select(table => 'table1');
	1803	eval {$result->filter(key1 => 'no')};
	1804	like($@, qr/not registered/);
	1805	eval {$result->end_filter(key1 => 'no')};
	1806	like($@, qr/not registered/);
	1807	$result->default_filter(undef);
	1808	ok(!defined $result->default_filter);
	1809	$result->default_filter('one');
	1810	is($result->default_filter->(), 1);
	1811
	1812	test 'dbi_option';
	1813	$dbi = DBIx::Custom->connect(dbi_option => {PrintError => 1});
	1814	ok($dbi->dbh->{PrintError});
	1815	$dbi = DBIx::Custom->connect(dbi_options => {PrintError => 1});
	1816	ok($dbi->dbh->{PrintError});
	1817
	1818	test 'DBIx::Custom::Result stash()';
	1819	$result = DBIx::Custom::Result->new;
	1820	is_deeply($result->stash, {}, 'default');
	1821	$result->stash->{foo} = 1;
	1822	is($result->stash->{foo}, 1, 'get and set');
test cleanup 1d42ba8 Yuki Kimoto authored on 2011-08-10	1823
cleanup test 7115444 Yuki Kimoto authored on 2011-08-10	1824	test 'delete_at';
	1825	$dbi = DBIx::Custom->connect;
	1826	eval { $dbi->execute('drop table table1') };
	1827	$dbi->execute($create_table1_2);
	1828	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
	1829	$dbi->delete_at(
	1830	table => 'table1',
	1831	primary_key => ['key1', 'key2'],
	1832	where => [1, 2],
	1833	);
	1834	is_deeply($dbi->select(table => 'table1')->all, []);
	1835
	1836	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
	1837	$dbi->delete_at(
	1838	table => 'table1',
	1839	primary_key => 'key1',
	1840	where => 1,
	1841	);
	1842	is_deeply($dbi->select(table => 'table1')->all, []);
	1843
	1844	test 'insert_at';
	1845	$dbi = DBIx::Custom->connect;
	1846	eval { $dbi->execute('drop table table1') };
	1847	$dbi->execute($create_table1_2);
	1848	$dbi->insert_at(
	1849	primary_key => ['key1', 'key2'],
	1850	table => 'table1',
	1851	where => [1, 2],
	1852	param => {key3 => 3}
	1853	);
	1854	is($dbi->select(table => 'table1')->one->{key1}, 1);
	1855	is($dbi->select(table => 'table1')->one->{key2}, 2);
	1856	is($dbi->select(table => 'table1')->one->{key3}, 3);
	1857
	1858	$dbi->delete_all(table => 'table1');
	1859	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
	1860	$dbi->insert_at(
	1861	primary_key => 'key1',
	1862	table => 'table1',
	1863	where => 1,
	1864	param => {key2 => 2, key3 => 3}
	1865	);
	1866
	1867	is($dbi->select(table => 'table1')->one->{key1}, 1);
	1868	is($dbi->select(table => 'table1')->one->{key2}, 2);
	1869	is($dbi->select(table => 'table1')->one->{key3}, 3);
	1870
	1871	eval {
	1872	$dbi->insert_at(
	1873	table => 'table1',
	1874	primary_key => ['key1', 'key2'],
	1875	where => {},
	1876	param => {key1 => 1, key2 => 2, key3 => 3},
	1877	);
	1878	};
	1879	like($@, qr/must be/);
	1880
	1881	$dbi = DBIx::Custom->connect;
	1882	eval { $dbi->execute('drop table table1') };
	1883	$dbi->execute($create_table1_2);
	1884	$dbi->insert_at(
	1885	{key3 => 3},
	1886	primary_key => ['key1', 'key2'],
	1887	table => 'table1',
	1888	where => [1, 2],
	1889	);
	1890	is($dbi->select(table => 'table1')->one->{key1}, 1);
	1891	is($dbi->select(table => 'table1')->one->{key2}, 2);
	1892	is($dbi->select(table => 'table1')->one->{key3}, 3);
	1893
	1894	test 'update_at';
	1895	$dbi = DBIx::Custom->connect;
	1896	eval { $dbi->execute('drop table table1') };
	1897	$dbi->execute($create_table1_2);
	1898	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
	1899	$dbi->update_at(
	1900	table => 'table1',
	1901	primary_key => ['key1', 'key2'],
	1902	where => [1, 2],
	1903	param => {key3 => 4}
	1904	);
	1905	is($dbi->select(table => 'table1')->one->{key1}, 1);
	1906	is($dbi->select(table => 'table1')->one->{key2}, 2);
	1907	is($dbi->select(table => 'table1')->one->{key3}, 4);
	1908
	1909	$dbi->delete_all(table => 'table1');
	1910	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
	1911	$dbi->update_at(
	1912	table => 'table1',
	1913	primary_key => 'key1',
	1914	where => 1,
	1915	param => {key3 => 4}
	1916	);
	1917	is($dbi->select(table => 'table1')->one->{key1}, 1);
	1918	is($dbi->select(table => 'table1')->one->{key2}, 2);
	1919	is($dbi->select(table => 'table1')->one->{key3}, 4);
	1920
	1921	$dbi = DBIx::Custom->connect;
	1922	eval { $dbi->execute('drop table table1') };
	1923	$dbi->execute($create_table1_2);
	1924	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
	1925	$dbi->update_at(
	1926	{key3 => 4},
	1927	table => 'table1',
	1928	primary_key => ['key1', 'key2'],
	1929	where => [1, 2]
	1930	);
	1931	is($dbi->select(table => 'table1')->one->{key1}, 1);
	1932	is($dbi->select(table => 'table1')->one->{key2}, 2);
	1933	is($dbi->select(table => 'table1')->one->{key3}, 4);
	1934
	1935	test 'select_at';
	1936	$dbi = DBIx::Custom->connect;
	1937	eval { $dbi->execute('drop table table1') };
	1938	$dbi->execute($create_table1_2);
	1939	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
	1940	$result = $dbi->select_at(
	1941	table => 'table1',
	1942	primary_key => ['key1', 'key2'],
	1943	where => [1, 2]
	1944	);
	1945	$row = $result->one;
	1946	is($row->{key1}, 1);
	1947	is($row->{key2}, 2);
	1948	is($row->{key3}, 3);
	1949
	1950	$dbi->delete_all(table => 'table1');
	1951	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
	1952	$result = $dbi->select_at(
	1953	table => 'table1',
	1954	primary_key => 'key1',
	1955	where => 1,
	1956	);
	1957	$row = $result->one;
	1958	is($row->{key1}, 1);
	1959	is($row->{key2}, 2);
	1960	is($row->{key3}, 3);
	1961
	1962	$dbi->delete_all(table => 'table1');
	1963	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
	1964	$result = $dbi->select_at(
	1965	table => 'table1',
	1966	primary_key => ['key1', 'key2'],
	1967	where => [1, 2]
	1968	);
	1969	$row = $result->one;
	1970	is($row->{key1}, 1);
	1971	is($row->{key2}, 2);
	1972	is($row->{key3}, 3);
	1973
	1974	eval {
	1975	$result = $dbi->select_at(
	1976	table => 'table1',
	1977	primary_key => ['key1', 'key2'],
	1978	where => {},
	1979	);
	1980	};
	1981	like($@, qr/must be/);
	1982
	1983	eval {
	1984	$result = $dbi->select_at(
	1985	table => 'table1',
	1986	primary_key => ['key1', 'key2'],
	1987	where => [1],
	1988	);
	1989	};
	1990	like($@, qr/same/);
	1991
	1992	eval {
	1993	$result = $dbi->update_at(
	1994	table => 'table1',
	1995	primary_key => ['key1', 'key2'],
	1996	where => {},
	1997	param => {key1 => 1, key2 => 2},
	1998	);
	1999	};
	2000	like($@, qr/must be/);
	2001
	2002	eval {
	2003	$result = $dbi->delete_at(
	2004	table => 'table1',
	2005	primary_key => ['key1', 'key2'],
	2006	where => {},
	2007	);
	2008	};
	2009	like($@, qr/must be/);
	2010
	2011	test 'columns';
	2012	use MyDBI1;
	2013	$dbi = MyDBI1->connect;
	2014	$model = $dbi->model('book');
	2015
	2016
	2017	test 'model delete_at';
	2018	$dbi = MyDBI6->connect;
	2019	eval { $dbi->execute('drop table table1') };
	2020	eval { $dbi->execute('drop table table2') };
	2021	eval { $dbi->execute('drop table table3') };
	2022	$dbi->execute($create_table1_2);
	2023	$dbi->execute($create_table2_2);
	2024	$dbi->execute($create_table3);
	2025	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
	2026	$dbi->model('table1')->delete_at(where => [1, 2]);
	2027	is_deeply($dbi->select(table => 'table1')->all, []);
	2028	$dbi->insert(table => 'table2', param => {key1 => 1, key2 => 2, key3 => 3});
	2029	$dbi->model('table1_1')->delete_at(where => [1, 2]);
	2030	is_deeply($dbi->select(table => 'table1')->all, []);
	2031	$dbi->insert(table => 'table3', param => {key1 => 1, key2 => 2, key3 => 3});
	2032	$dbi->model('table1_3')->delete_at(where => [1, 2]);
	2033	is_deeply($dbi->select(table => 'table1')->all, []);
	2034
	2035	test 'model insert_at';
	2036	$dbi = MyDBI6->connect;
	2037	eval { $dbi->execute('drop table table1') };
	2038	$dbi->execute($create_table1_2);
	2039	$dbi->model('table1')->insert_at(
	2040	where => [1, 2],
	2041	param => {key3 => 3}
	2042	);
	2043	$result = $dbi->model('table1')->select;
	2044	$row = $result->one;
	2045	is($row->{key1}, 1);
	2046	is($row->{key2}, 2);
	2047	is($row->{key3}, 3);
	2048
	2049	test 'model update_at';
	2050	$dbi = MyDBI6->connect;
	2051	eval { $dbi->execute('drop table table1') };
	2052	$dbi->execute($create_table1_2);
	2053	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
	2054	$dbi->model('table1')->update_at(
	2055	where => [1, 2],
	2056	param => {key3 => 4}
	2057	);
	2058	$result = $dbi->model('table1')->select;
	2059	$row = $result->one;
	2060	is($row->{key1}, 1);
	2061	is($row->{key2}, 2);
	2062	is($row->{key3}, 4);
	2063
	2064	test 'model select_at';
	2065	$dbi = MyDBI6->connect;
	2066	eval { $dbi->execute('drop table table1') };
	2067	$dbi->execute($create_table1_2);
	2068	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
	2069	$result = $dbi->model('table1')->select_at(where => [1, 2]);
	2070	$row = $result->one;
	2071	is($row->{key1}, 1);
	2072	is($row->{key2}, 2);
	2073	is($row->{key3}, 3);
	2074
	2075
	2076	test 'mycolumn and column';
	2077	$dbi = MyDBI7->connect;
	2078	eval { $dbi->execute('drop table table1') };
	2079	eval { $dbi->execute('drop table table2') };
	2080	$dbi->execute($create_table1);
	2081	$dbi->execute($create_table2);
	2082	$dbi->separator('__');
	2083	$dbi->setup_model;
	2084	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	2085	$dbi->insert(table => 'table2', param => {key1 => 1, key3 => 3});
	2086	$model = $dbi->model('table1');
	2087	$result = $model->select(
	2088	column => [$model->mycolumn, $model->column('table2')],
	2089	where => {'table1.key1' => 1}
	2090	);
	2091	is_deeply($result->one,
	2092	{key1 => 1, key2 => 2, 'table2__key1' => 1, 'table2__key3' => 3});
test cleanup 1d42ba8 Yuki Kimoto authored on 2011-08-10	2093
test cleanup db64470 Yuki Kimoto authored on 2011-08-10	2094	test 'insert_param';
	2095	$dbi = DBIx::Custom->connect;
	2096	eval { $dbi->execute('drop table table1') };
	2097	$dbi->execute($create_table1_2);
	2098	$param = {key1 => 1, key2 => 2};
	2099	$insert_param = $dbi->insert_param($param);
	2100	$sql = <<"EOS";
	2101	insert into table1 $insert_param
	2102	EOS
	2103	$dbi->execute($sql, param => $param, table => 'table1');
	2104	is($dbi->select(table => 'table1')->one->{key1}, 1);
	2105	is($dbi->select(table => 'table1')->one->{key2}, 2);
	2106
	2107	$dbi = DBIx::Custom->connect;
	2108	eval { $dbi->execute('drop table table1') };
	2109	$dbi->execute($create_table1_2);
	2110	$param = {key1 => 1, key2 => 2};
	2111	$insert_param = $dbi->insert_param($param);
	2112	$sql = <<"EOS";
	2113	insert into table1 $insert_param
	2114	EOS
	2115	$dbi->execute($sql, param => $param, table => 'table1');
	2116	is($dbi->select(table => 'table1')->one->{key1}, 1);
	2117	is($dbi->select(table => 'table1')->one->{key2}, 2);
	2118
	2119	eval { $dbi->insert_param({";" => 1}) };
	2120	like($@, qr/not safety/);
test cleanup 1d42ba8 Yuki Kimoto authored on 2011-08-10	2121
cleanup test ee32d7d Yuki Kimoto authored on 2011-08-10	2122	test 'mycolumn';
	2123	$dbi = MyDBI8->connect;
	2124	eval { $dbi->execute('drop table table1') };
	2125	eval { $dbi->execute('drop table table2') };
	2126	$dbi->execute($create_table1);
	2127	$dbi->execute($create_table2);
	2128	$dbi->setup_model;
	2129	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	2130	$dbi->insert(table => 'table2', param => {key1 => 1, key3 => 3});
	2131	$model = $dbi->model('table1');
	2132	$result = $model->select_at(
	2133	column => [
	2134	$model->mycolumn,
	2135	$model->column('table2')
	2136	]
	2137	);
	2138	is_deeply($result->one,
	2139	{key1 => 1, key2 => 2, 'table2.key1' => 1, 'table2.key3' => 3});
	2140
	2141	$result = $model->select_at(
	2142	column => [
	2143	$model->mycolumn(['key1']),
	2144	$model->column(table2 => ['key1'])
	2145	]
	2146	);
	2147	is_deeply($result->one,
	2148	{key1 => 1, 'table2.key1' => 1});
	2149	$result = $model->select_at(
	2150	column => [
	2151	$model->mycolumn(['key1']),
	2152	{table2 => ['key1']}
	2153	]
	2154	);
	2155	is_deeply($result->one,
	2156	{key1 => 1, 'table2.key1' => 1});
	2157
	2158	$result = $model->select_at(
	2159	column => [
	2160	$model->mycolumn(['key1']),
	2161	['table2.key1', as => 'table2.key1']
	2162	]
	2163	);
	2164	is_deeply($result->one,
	2165	{key1 => 1, 'table2.key1' => 1});
	2166
	2167	$result = $model->select_at(
	2168	column => [
	2169	$model->mycolumn(['key1']),
	2170	['table2.key1' => 'table2.key1']
	2171	]
	2172	);
	2173	is_deeply($result->one,
	2174	{key1 => 1, 'table2.key1' => 1});
	2175
cleanup test 3e9a4ba Yuki Kimoto authored on 2011-08-10	2176	test 'merge_param';
	2177	$dbi = DBIx::Custom->new;
	2178	$params = [
	2179	{key1 => 1, key2 => 2, key3 => 3},
	2180	{key1 => 1, key2 => 2},
	2181	{key1 => 1}
	2182	];
	2183	$param = $dbi->merge_param($params->[0], $params->[1], $params->[2]);
	2184	is_deeply($param, {key1 => [1, 1, 1], key2 => [2, 2], key3 => 3});
	2185
	2186	$params = [
	2187	{key1 => [1, 2], key2 => 1, key3 => [1, 2]},
	2188	{key1 => [3, 4], key2 => [2, 3], key3 => 3}
	2189	];
	2190	$param = $dbi->merge_param($params->[0], $params->[1]);
	2191	is_deeply($param, {key1 => [1, 2, 3, 4], key2 => [1, 2, 3], key3 => [1, 2, 3]});
	2192
	2193	test 'select() param option';
	2194	$dbi = DBIx::Custom->connect;
	2195	eval { $dbi->execute('drop table table1') };
	2196	$dbi->execute($create_table1);
	2197	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	2198	$dbi->insert(table => 'table1', param => {key1 => 2, key2 => 3});
	2199	eval { $dbi->execute('drop table table2') };
	2200	$dbi->execute($create_table2);
	2201	$dbi->insert(table => 'table2', param => {key1 => 1, key3 => 4});
	2202	$dbi->insert(table => 'table2', param => {key1 => 2, key3 => 5});
	2203	$rows = $dbi->select(
	2204	table => 'table1',
	2205	column => 'table1.key1 as table1_key1, key2, key3',
	2206	where => {'table1.key2' => 3},
	2207	join => ['inner join (select * from table2 where {= table2.key3})' .
	2208	' as table2 on table1.key1 = table2.key1'],
	2209	param => {'table2.key3' => 5}
	2210	)->all;
	2211	is_deeply($rows, [{table1_key1 => 2, key2 => 3, key3 => 5}]);
	2212
	2213	test 'select() string where';
	2214	$dbi = DBIx::Custom->connect;
	2215	eval { $dbi->execute('drop table table1') };
	2216	$dbi->execute($create_table1);
	2217	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	2218	$dbi->insert(table => 'table1', param => {key1 => 2, key2 => 3});
	2219	$rows = $dbi->select(
	2220	table => 'table1',
	2221	where => 'key1 = :key1 and key2 = :key2',
	2222	where_param => {key1 => 1, key2 => 2}
	2223	)->all;
	2224	is_deeply($rows, [{key1 => 1, key2 => 2}]);
	2225
	2226	$dbi = DBIx::Custom->connect;
	2227	eval { $dbi->execute('drop table table1') };
	2228	$dbi->execute($create_table1);
	2229	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	2230	$dbi->insert(table => 'table1', param => {key1 => 2, key2 => 3});
	2231	$rows = $dbi->select(
	2232	table => 'table1',
	2233	where => [
	2234	'key1 = :key1 and key2 = :key2',
	2235	{key1 => 1, key2 => 2}
	2236	]
	2237	)->all;
	2238	is_deeply($rows, [{key1 => 1, key2 => 2}]);
	2239
	2240	test 'delete() string where';
	2241	$dbi = DBIx::Custom->connect;
	2242	eval { $dbi->execute('drop table table1') };
	2243	$dbi->execute($create_table1);
	2244	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	2245	$dbi->insert(table => 'table1', param => {key1 => 2, key2 => 3});
	2246	$dbi->delete(
	2247	table => 'table1',
	2248	where => 'key1 = :key1 and key2 = :key2',
	2249	where_param => {key1 => 1, key2 => 2}
	2250	);
	2251	$rows = $dbi->select(table => 'table1')->all;
	2252	is_deeply($rows, [{key1 => 2, key2 => 3}]);
	2253
	2254	$dbi = DBIx::Custom->connect;
	2255	eval { $dbi->execute('drop table table1') };
	2256	$dbi->execute($create_table1);
	2257	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	2258	$dbi->insert(table => 'table1', param => {key1 => 2, key2 => 3});
	2259	$dbi->delete(
	2260	table => 'table1',
	2261	where => [
	2262	'key1 = :key1 and key2 = :key2',
	2263	{key1 => 1, key2 => 2}
	2264	]
	2265	);
	2266	$rows = $dbi->select(table => 'table1')->all;
	2267	is_deeply($rows, [{key1 => 2, key2 => 3}]);
	2268
	2269
	2270	test 'update() string where';
	2271	$dbi = DBIx::Custom->connect;
	2272	eval { $dbi->execute('drop table table1') };
	2273	$dbi->execute($create_table1);
	2274	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	2275	$dbi->update(
	2276	table => 'table1',
	2277	param => {key1 => 5},
	2278	where => 'key1 = :key1 and key2 = :key2',
	2279	where_param => {key1 => 1, key2 => 2}
	2280	);
	2281	$rows = $dbi->select(table => 'table1')->all;
	2282	is_deeply($rows, [{key1 => 5, key2 => 2}]);
	2283
	2284	$dbi = DBIx::Custom->connect;
	2285	eval { $dbi->execute('drop table table1') };
	2286	$dbi->execute($create_table1);
	2287	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	2288	$dbi->update(
	2289	table => 'table1',
	2290	param => {key1 => 5},
	2291	where => [
	2292	'key1 = :key1 and key2 = :key2',
	2293	{key1 => 1, key2 => 2}
	2294	]
	2295	);
	2296	$rows = $dbi->select(table => 'table1')->all;
	2297	is_deeply($rows, [{key1 => 5, key2 => 2}]);
	2298
	2299	test 'insert id and primary_key option';
	2300	$dbi = DBIx::Custom->connect;
	2301	eval { $dbi->execute('drop table table1') };
	2302	$dbi->execute($create_table1_2);
	2303	$dbi->insert(
	2304	primary_key => ['key1', 'key2'],
	2305	table => 'table1',
	2306	id => [1, 2],
	2307	param => {key3 => 3}
	2308	);
	2309	is($dbi->select(table => 'table1')->one->{key1}, 1);
	2310	is($dbi->select(table => 'table1')->one->{key2}, 2);
	2311	is($dbi->select(table => 'table1')->one->{key3}, 3);
	2312
	2313	$dbi->delete_all(table => 'table1');
	2314	$dbi->insert(
	2315	primary_key => 'key1',
	2316	table => 'table1',
	2317	id => 0,
	2318	param => {key2 => 2, key3 => 3}
	2319	);
	2320
	2321	is($dbi->select(table => 'table1')->one->{key1}, 0);
	2322	is($dbi->select(table => 'table1')->one->{key2}, 2);
	2323	is($dbi->select(table => 'table1')->one->{key3}, 3);
	2324
	2325	$dbi = DBIx::Custom->connect;
	2326	eval { $dbi->execute('drop table table1') };
	2327	$dbi->execute($create_table1_2);
	2328	$dbi->insert(
	2329	{key3 => 3},
	2330	primary_key => ['key1', 'key2'],
	2331	table => 'table1',
	2332	id => [1, 2],
	2333	);
	2334	is($dbi->select(table => 'table1')->one->{key1}, 1);
	2335	is($dbi->select(table => 'table1')->one->{key2}, 2);
	2336	is($dbi->select(table => 'table1')->one->{key3}, 3);
test cleanup 1d42ba8 Yuki Kimoto authored on 2011-08-10	2337
cleanup test 65d6fcd Yuki Kimoto authored on 2011-08-10	2338	test 'model insert id and primary_key option';
	2339	$dbi = MyDBI6->connect;
	2340	eval { $dbi->execute('drop table table1') };
	2341	$dbi->execute($create_table1_2);
	2342	$dbi->model('table1')->insert(
	2343	id => [1, 2],
	2344	param => {key3 => 3}
	2345	);
	2346	$result = $dbi->model('table1')->select;
	2347	$row = $result->one;
	2348	is($row->{key1}, 1);
	2349	is($row->{key2}, 2);
	2350	is($row->{key3}, 3);
	2351
	2352	$dbi = MyDBI6->connect;
	2353	eval { $dbi->execute('drop table table1') };
	2354	$dbi->execute($create_table1_2);
	2355	$dbi->model('table1')->insert(
	2356	{key3 => 3},
	2357	id => [1, 2]
	2358	);
	2359	$result = $dbi->model('table1')->select;
	2360	$row = $result->one;
	2361	is($row->{key1}, 1);
	2362	is($row->{key2}, 2);
	2363	is($row->{key3}, 3);
	2364
	2365	test 'update and id option';
	2366	$dbi = DBIx::Custom->connect;
	2367	eval { $dbi->execute('drop table table1') };
	2368	$dbi->execute($create_table1_2);
	2369	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
	2370	$dbi->update(
	2371	table => 'table1',
	2372	primary_key => ['key1', 'key2'],
	2373	id => [1, 2],
	2374	param => {key3 => 4}
	2375	);
	2376	is($dbi->select(table => 'table1')->one->{key1}, 1);
	2377	is($dbi->select(table => 'table1')->one->{key2}, 2);
	2378	is($dbi->select(table => 'table1')->one->{key3}, 4);
	2379
	2380	$dbi->delete_all(table => 'table1');
	2381	$dbi->insert(table => 'table1', param => {key1 => 0, key2 => 2, key3 => 3});
	2382	$dbi->update(
	2383	table => 'table1',
	2384	primary_key => 'key1',
	2385	id => 0,
	2386	param => {key3 => 4}
	2387	);
	2388	is($dbi->select(table => 'table1')->one->{key1}, 0);
	2389	is($dbi->select(table => 'table1')->one->{key2}, 2);
	2390	is($dbi->select(table => 'table1')->one->{key3}, 4);
	2391
	2392	$dbi = DBIx::Custom->connect;
	2393	eval { $dbi->execute('drop table table1') };
	2394	$dbi->execute($create_table1_2);
	2395	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
	2396	$dbi->update(
	2397	{key3 => 4},
	2398	table => 'table1',
	2399	primary_key => ['key1', 'key2'],
	2400	id => [1, 2]
	2401	);
	2402	is($dbi->select(table => 'table1')->one->{key1}, 1);
	2403	is($dbi->select(table => 'table1')->one->{key2}, 2);
	2404	is($dbi->select(table => 'table1')->one->{key3}, 4);
	2405
	2406
	2407	test 'model update and id option';
	2408	$dbi = MyDBI6->connect;
	2409	eval { $dbi->execute('drop table table1') };
	2410	$dbi->execute($create_table1_2);
	2411	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
	2412	$dbi->model('table1')->update(
	2413	id => [1, 2],
	2414	param => {key3 => 4}
	2415	);
	2416	$result = $dbi->model('table1')->select;
	2417	$row = $result->one;
	2418	is($row->{key1}, 1);
	2419	is($row->{key2}, 2);
	2420	is($row->{key3}, 4);
	2421
	2422
	2423	test 'delete and id option';
	2424	$dbi = DBIx::Custom->connect;
	2425	eval { $dbi->execute('drop table table1') };
	2426	$dbi->execute($create_table1_2);
	2427	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
	2428	$dbi->delete(
	2429	table => 'table1',
	2430	primary_key => ['key1', 'key2'],
	2431	id => [1, 2],
	2432	);
	2433	is_deeply($dbi->select(table => 'table1')->all, []);
	2434
	2435	$dbi->insert(table => 'table1', param => {key1 => 0, key2 => 2, key3 => 3});
	2436	$dbi->delete(
	2437	table => 'table1',
	2438	primary_key => 'key1',
	2439	id => 0,
	2440	);
	2441	is_deeply($dbi->select(table => 'table1')->all, []);
	2442
	2443
	2444	test 'model delete and id option';
	2445	$dbi = MyDBI6->connect;
	2446	eval { $dbi->execute('drop table table1') };
	2447	eval { $dbi->execute('drop table table2') };
	2448	eval { $dbi->execute('drop table table3') };
	2449	$dbi->execute($create_table1_2);
	2450	$dbi->execute($create_table2_2);
	2451	$dbi->execute($create_table3);
	2452	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
	2453	$dbi->model('table1')->delete(id => [1, 2]);
	2454	is_deeply($dbi->select(table => 'table1')->all, []);
	2455	$dbi->insert(table => 'table2', param => {key1 => 1, key2 => 2, key3 => 3});
	2456	$dbi->model('table1_1')->delete(id => [1, 2]);
	2457	is_deeply($dbi->select(table => 'table1')->all, []);
	2458	$dbi->insert(table => 'table3', param => {key1 => 1, key2 => 2, key3 => 3});
	2459	$dbi->model('table1_3')->delete(id => [1, 2]);
	2460	is_deeply($dbi->select(table => 'table1')->all, []);
	2461
	2462
	2463	test 'select and id option';
	2464	$dbi = DBIx::Custom->connect;
	2465	eval { $dbi->execute('drop table table1') };
	2466	$dbi->execute($create_table1_2);
	2467	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
	2468	$result = $dbi->select(
	2469	table => 'table1',
	2470	primary_key => ['key1', 'key2'],
	2471	id => [1, 2]
	2472	);
	2473	$row = $result->one;
	2474	is($row->{key1}, 1);
	2475	is($row->{key2}, 2);
	2476	is($row->{key3}, 3);
	2477
	2478	$dbi->delete_all(table => 'table1');
	2479	$dbi->insert(table => 'table1', param => {key1 => 0, key2 => 2, key3 => 3});
	2480	$result = $dbi->select(
	2481	table => 'table1',
	2482	primary_key => 'key1',
	2483	id => 0,
	2484	);
	2485	$row = $result->one;
	2486	is($row->{key1}, 0);
	2487	is($row->{key2}, 2);
	2488	is($row->{key3}, 3);
	2489
	2490	$dbi->delete_all(table => 'table1');
	2491	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
	2492	$result = $dbi->select(
	2493	table => 'table1',
	2494	primary_key => ['key1', 'key2'],
	2495	id => [1, 2]
	2496	);
	2497	$row = $result->one;
	2498	is($row->{key1}, 1);
	2499	is($row->{key2}, 2);
	2500	is($row->{key3}, 3);
	2501
	2502
	2503	test 'model select_at';
	2504	$dbi = MyDBI6->connect;
	2505	eval { $dbi->execute('drop table table1') };
	2506	$dbi->execute($create_table1_2);
	2507	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
	2508	$result = $dbi->model('table1')->select(id => [1, 2]);
	2509	$row = $result->one;
	2510	is($row->{key1}, 1);
	2511	is($row->{key2}, 2);
	2512	is($row->{key3}, 3);
	2513
	2514	test 'column separator is default .';
	2515	$dbi = MyDBI7->connect;
	2516	eval { $dbi->execute('drop table table1') };
	2517	eval { $dbi->execute('drop table table2') };
	2518	$dbi->execute($create_table1);
	2519	$dbi->execute($create_table2);
	2520	$dbi->setup_model;
	2521	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	2522	$dbi->insert(table => 'table2', param => {key1 => 1, key3 => 3});
	2523	$model = $dbi->model('table1');
	2524	$result = $model->select(
	2525	column => [$model->column('table2')],
	2526	where => {'table1.key1' => 1}
	2527	);
	2528	is_deeply($result->one,
	2529	{'table2.key1' => 1, 'table2.key3' => 3});
	2530
	2531	$result = $model->select(
	2532	column => [$model->column('table2' => [qw/key1 key3/])],
	2533	where => {'table1.key1' => 1}
	2534	);
	2535	is_deeply($result->one,
	2536	{'table2.key1' => 1, 'table2.key3' => 3});
test cleanup 1d42ba8 Yuki Kimoto authored on 2011-08-10	2537
cleanup test c1c6c1f Yuki Kimoto authored on 2011-08-10	2538	test 'separator';
	2539	$dbi = DBIx::Custom->connect;
	2540	eval { $dbi->execute('drop table table1') };
	2541	eval { $dbi->execute('drop table table2') };
	2542	$dbi->execute($create_table1);
	2543	$dbi->execute($create_table2);
test cleanup 1d42ba8 Yuki Kimoto authored on 2011-08-10	2544
cleanup test c1c6c1f Yuki Kimoto authored on 2011-08-10	2545	$dbi->create_model(
	2546	table => 'table1',
	2547	join => [
	2548	'left outer join table2 on table1.key1 = table2.key1'
	2549	],
	2550	primary_key => ['key1'],
	2551	);
	2552	$model2 = $dbi->create_model(
	2553	table => 'table2',
	2554	);
	2555	$dbi->setup_model;
	2556	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	2557	$dbi->insert(table => 'table2', param => {key1 => 1, key3 => 3});
	2558	$model = $dbi->model('table1');
	2559	$result = $model->select(
	2560	column => [
	2561	$model->mycolumn,
	2562	{table2 => [qw/key1 key3/]}
	2563	],
	2564	where => {'table1.key1' => 1}
	2565	);
	2566	is_deeply($result->one,
	2567	{key1 => 1, key2 => 2, 'table2.key1' => 1, 'table2.key3' => 3});
	2568	is_deeply($model2->select->one, {key1 => 1, key3 => 3});
test cleanup 1d42ba8 Yuki Kimoto authored on 2011-08-10	2569
cleanup test c1c6c1f Yuki Kimoto authored on 2011-08-10	2570	$dbi->separator('__');
	2571	$model = $dbi->model('table1');
	2572	$result = $model->select(
	2573	column => [
	2574	$model->mycolumn,
	2575	{table2 => [qw/key1 key3/]}
	2576	],
	2577	where => {'table1.key1' => 1}
	2578	);
	2579	is_deeply($result->one,
	2580	{key1 => 1, key2 => 2, 'table2__key1' => 1, 'table2__key3' => 3});
	2581	is_deeply($model2->select->one, {key1 => 1, key3 => 3});
test cleanup 1d42ba8 Yuki Kimoto authored on 2011-08-10	2582
cleanup test c1c6c1f Yuki Kimoto authored on 2011-08-10	2583	$dbi->separator('-');
	2584	$model = $dbi->model('table1');
	2585	$result = $model->select(
	2586	column => [
	2587	$model->mycolumn,
	2588	{table2 => [qw/key1 key3/]}
	2589	],
	2590	where => {'table1.key1' => 1}
	2591	);
	2592	is_deeply($result->one,
	2593	{key1 => 1, key2 => 2, 'table2-key1' => 1, 'table2-key3' => 3});
	2594	is_deeply($model2->select->one, {key1 => 1, key3 => 3});
test cleanup 1d42ba8 Yuki Kimoto authored on 2011-08-10	2595
	2596
cleanup test c1c6c1f Yuki Kimoto authored on 2011-08-10	2597	test 'filter_off';
	2598	$dbi = DBIx::Custom->connect;
	2599	eval { $dbi->execute('drop table table1') };
	2600	eval { $dbi->execute('drop table table2') };
	2601	$dbi->execute($create_table1);
	2602	$dbi->execute($create_table2);
test cleanup 1d42ba8 Yuki Kimoto authored on 2011-08-10	2603
cleanup test c1c6c1f Yuki Kimoto authored on 2011-08-10	2604	$dbi->create_model(
	2605	table => 'table1',
	2606	join => [
	2607	'left outer join table2 on table1.key1 = table2.key1'
	2608	],
	2609	primary_key => ['key1'],
	2610	);
	2611	$dbi->setup_model;
	2612	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	2613	$model = $dbi->model('table1');
	2614	$result = $model->select(column => 'key1');
	2615	$result->filter(key1 => sub { $_[0] * 2 });
	2616	is_deeply($result->one, {key1 => 2});
test cleanup 1d42ba8 Yuki Kimoto authored on 2011-08-10	2617
cleanup test c1c6c1f Yuki Kimoto authored on 2011-08-10	2618	test 'available_datetype';
	2619	$dbi = DBIx::Custom->connect;
	2620	ok($dbi->can('available_datatype'));
test cleanup 1d42ba8 Yuki Kimoto authored on 2011-08-10	2621
	2622
cleanup test c1c6c1f Yuki Kimoto authored on 2011-08-10	2623	test 'select prefix option';
	2624	$dbi = DBIx::Custom->connect;
	2625	eval { $dbi->execute('drop table table1') };
	2626	$dbi->execute($create_table1);
	2627	$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
	2628	$rows = $dbi->select(prefix => 'key1,', column => 'key2', table => 'table1')->all;
	2629	is_deeply($rows, [{key1 => 1, key2 => 2}], "table");
test cleanup 1d42ba8 Yuki Kimoto authored on 2011-08-10	2630
cleanup test c1c6c1f Yuki Kimoto authored on 2011-08-10	2631	test 'map_param';
	2632	$dbi = DBIx::Custom->connect;
	2633	$param = $dbi->map_param(
	2634	{id => 1, author => 'Ken', price => 1900},
	2635	id => 'book.id',
	2636	author => ['book.author', sub { '%' . $_[0] . '%' }],
	2637	price => ['book.price', {if => sub { $_[0] eq 1900 }}]
	2638	);
	2639	is_deeply($param, {'book.id' => 1, 'book.author' => '%Ken%',
	2640	'book.price' => 1900});
test cleanup 1d42ba8 Yuki Kimoto authored on 2011-08-10	2641
cleanup test c1c6c1f Yuki Kimoto authored on 2011-08-10	2642	$param = $dbi->map_param(
	2643	{id => 0, author => 0, price => 0},
	2644	id => 'book.id',
	2645	author => ['book.author', sub { '%' . $_[0] . '%' }],
	2646	price => ['book.price', sub { '%' . $_[0] . '%' },
	2647	{if => sub { $_[0] eq 0 }}]
	2648	);
	2649	is_deeply($param, {'book.id' => 0, 'book.author' => '%0%', 'book.price' => '%0%'});
test cleanup 1d42ba8 Yuki Kimoto authored on 2011-08-10	2650
cleanup test c1c6c1f Yuki Kimoto authored on 2011-08-10	2651	$param = $dbi->map_param(
	2652	{id => '', author => '', price => ''},
	2653	id => 'book.id',
	2654	author => ['book.author', sub { '%' . $_[0] . '%' }],
	2655	price => ['book.price', sub { '%' . $_[0] . '%' },
	2656	{if => sub { $_[0] eq 1 }}]
	2657	);
	2658	is_deeply($param, {});
test cleanup 1d42ba8 Yuki Kimoto authored on 2011-08-10	2659
cleanup test c1c6c1f Yuki Kimoto authored on 2011-08-10	2660	$param = $dbi->map_param(
	2661	{id => undef, author => undef, price => undef},
	2662	id => 'book.id',
	2663	price => ['book.price', {if => 'exists'}]
	2664	);
	2665	is_deeply($param, {'book.price' => undef});
test cleanup 1d42ba8 Yuki Kimoto authored on 2011-08-10	2666
cleanup test c1c6c1f Yuki Kimoto authored on 2011-08-10	2667	$param = $dbi->map_param(
	2668	{price => 'a'},
	2669	id => ['book.id', {if => 'exists'}],
	2670	price => ['book.price', sub { '%' . $_[0] }, {if => 'exists'}]
	2671	);
	2672	is_deeply($param, {'book.price' => '%a'});
test cleanup 1d42ba8 Yuki Kimoto authored on 2011-08-10	2673
cleanup test 08c3c54 Yuki Kimoto authored on 2011-08-08	2674	1;