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 });
40 local $SIG{__WARN__} = sub { $warnings .= $_[0] };
41 my $first = $rs->first();
42 ok( $warnings !~ /ORDER BY terms/,
43 "No problem handling ORDER by scalaref" );
46 DBICTest->schema->storage->sql_maker->quote_char([qw/[ ]/]);
47 DBICTest->schema->storage->sql_maker->name_sep('.');
49 $rs = DBICTest::CD->search(
50 { 'me.year' => 2001, 'artist.name' => 'Caterwauler McCrae' },
51 { join => 'artist' });
52 cmp_ok($rs->count,'==', 1,"join quoted with brackets.");
59 DBICTest->schema->storage->sql_maker->quote_char('`');
60 DBICTest->schema->storage->sql_maker->name_sep('.');
62 cmp_ok(DBICTest->schema->storage->sql_maker->update('group', \%data), 'eq', 'UPDATE `group` SET `name` = ?, `order` = ?', "quoted table names for UPDATE");