6 eval "use DBD::SQLite";
8 ? ( skip_all => 'needs DBD::SQLite for testing' )
16 use_ok('DBICTest::HelperRels');
18 DBICTest->schema->storage->sql_maker->quote_char("'");
19 DBICTest->schema->storage->sql_maker->name_sep('.');
21 my $rs = DBICTest::CD->search(
22 { 'me.year' => 2001, 'artist.name' => 'Caterwauler McCrae' },
23 { join => 'artist' });
25 cmp_ok( $rs->count, '==', 1, "join with fields quoted");
27 DBICTest->schema->storage->sql_maker->quote_char([qw/[ ]/]);
28 DBICTest->schema->storage->sql_maker->name_sep('.');
30 $rs = DBICTest::CD->search(
31 { 'me.year' => 2001, 'artist.name' => 'Caterwauler McCrae' },
32 { join => 'artist' });
33 cmp_ok($rs->count,'==', 1,"join quoted with brackets.");