8 eval "use DBD::SQLite";
10 ? ( skip_all => 'needs DBD::SQLite for testing' )
18 DBICTest->init_schema();
20 my $sql_maker = DBICTest->schema->storage->sql_maker;
22 $sql_maker->quote_char('`');
23 $sql_maker->name_sep('.');
25 my ($sql,) = $sql_maker->select(
36 'artist.artistid' => 'me.artist'
46 'artist.name' => 'Caterwauler McCrae',
55 q/SELECT COUNT( * ) FROM `cd` `me` JOIN `artist` `artist` ON ( `artist`.`artistid` = `me`.`artist` ) WHERE ( `artist`.`name` = ? AND `me`.`year` = ? )/,
56 'got correct SQL for count query with quoting');
58 ($sql,) = $sql_maker->select(
79 local $TODO = "order_by with quoting needs fixing (ash/castaway)";
82 q/SELECT `me`.`cdid`, `me`.`artist`, `me`.`title`, `me`.`year` FROM `cd` `me` ORDER BY `year` DESC/,
83 'quoted ORDER BY with DESC okay');
87 local $TODO = "select attr with star needs fixing (mst/nate)";
89 ($sql,) = $sql_maker->select(
104 is($sql, q/SELECT `me`.* FROM `cd` `me`/, 'select attr with me.* is right');
107 ($sql,) = $sql_maker->select(
128 q/SELECT `me`.`cdid`, `me`.`artist`, `me`.`title`, `me`.`year` FROM `cd` `me` ORDER BY year DESC/,
129 'did not quote ORDER BY with scalarref');
138 ($sql,@binds) = $sql_maker->update(
147 q/UPDATE `group` SET `name` = ?, `order` = ?/,
148 'quoted table names for UPDATE');
150 $sql_maker->quote_char([qw/[ ]/]);
152 ($sql,) = $sql_maker->select(
159 'artist' => 'artist',
163 'artist.artistid' => 'me.artist'
173 'artist.name' => 'Caterwauler McCrae',
182 q/SELECT COUNT( * ) FROM [cd] [me] JOIN [artist] [artist] ON ( [artist].[artistid] = [me].[artist] ) WHERE ( [artist].[name] = ? AND [me].[year] = ? )/,
183 'got correct SQL for count query with bracket quoting');
186 ($sql,@binds) = $sql_maker->update(
195 q/UPDATE [group] SET [name] = ?, [order] = ?/,
196 'bracket quoted table names for UPDATE');