8 eval "use DBD::SQLite";
10 ? ( skip_all => 'needs DBD::SQLite for testing' )
17 DBICTest->init_schema();
19 DBICTest->schema->storage->sql_maker->quote_char("'");
20 DBICTest->schema->storage->sql_maker->name_sep('.');
22 my $rs = DBICTest::CD->search(
23 { 'me.year' => 2001, 'artist.name' => 'Caterwauler McCrae' },
24 { join => 'artist' });
26 cmp_ok( $rs->count, '==', 1, "join with fields quoted");
28 $rs = DBICTest::CD->search({},
29 { 'order_by' => 'year DESC'});
32 like( $@, qr/ORDER BY terms/, "Problem with ORDER BY quotes" );
35 my $order = 'year DESC';
36 $rs = DBICTest::CD->search({},
37 { 'order_by' => \$order });
39 eval { $rs->first() };
40 ok(!$@, "No problem handling ORDER by scalaref" );
43 DBICTest->schema->storage->sql_maker->quote_char([qw/[ ]/]);
44 DBICTest->schema->storage->sql_maker->name_sep('.');
46 $rs = DBICTest::CD->search(
47 { 'me.year' => 2001, 'artist.name' => 'Caterwauler McCrae' },
48 { join => 'artist' });
49 cmp_ok($rs->count,'==', 1,"join quoted with brackets.");
56 DBICTest->schema->storage->sql_maker->quote_char('`');
57 DBICTest->schema->storage->sql_maker->name_sep('.');
59 cmp_ok(DBICTest->schema->storage->sql_maker->update('group', \%data), 'eq', 'UPDATE `group` SET `name` = ?, `order` = ?', "quoted table names for UPDATE");