8 use DBIC::SqlMakerTest;
10 my $schema = DBICTest->init_schema( no_deploy => 1 );
13 @{ $schema->storage->_dbi_connect_info },
14 { AutoCommit => 1, quote_char => [qw/[ ]/] }
17 my $rs = $schema->resultset('CD')->search(
18 { 'me.year' => 2001, 'artist.name' => 'Caterwauler McCrae' },
23 [ { dbic_colname => "artist.name", sqlt_datatype => "varchar", sqlt_size => 100 }
24 => 'Caterwauler McCrae' ],
25 [ { dbic_colname => "me.year", sqlt_datatype => "varchar", sqlt_size => 100 }
31 "(SELECT COUNT( * ) FROM cd [me] JOIN [artist] [artist] ON [artist].[artistid] = [me].[artist] WHERE ( [artist].[name] = ? AND [me].[year] = ? ))",
33 'got correct SQL for count query with bracket quoting'
36 $schema->storage->sql_maker->quote_char('`');
37 $schema->storage->sql_maker->name_sep('.');
41 "(SELECT COUNT( * ) FROM cd `me` JOIN `artist` `artist` ON ( `artist`.`artistid` = `me`.`artist` ) WHERE ( `artist`.`name` = ? AND `me`.`year` = ? ))",
43 'got correct SQL for count query with mysql quoting'
46 # !!! talk to ribasushi *explicitly* before modfying these tests !!!
49 $schema->resultset('CD')->search({}, { order_by => 'year DESC', columns => 'cdid' })->as_query,
50 '(SELECT `me`.`cdid` FROM cd `me` ORDER BY `year DESC`)',
52 'quoted ORDER BY with DESC (should use a scalarref anyway)'
56 $schema->resultset('CD')->search({}, { order_by => \'year DESC', columns => 'cdid' })->as_query,
57 '(SELECT `me`.`cdid` FROM cd `me` ORDER BY year DESC)',
59 'did not quote ORDER BY with scalarref',
64 scalar $schema->storage->sql_maker->update('group', { order => 12, name => 'Bill' }),
65 'UPDATE `group` SET `name` = ?, `order` = ?',
66 'quoted table names for UPDATE' );