4 use dbixcsl_common_tests;
6 eval { require DBD::SQLite };
7 my $class = $@ ? 'SQLite2' : 'SQLite';
9 my $tester = dbixcsl_common_tests->new(
11 auto_inc_pk => 'INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT',
12 dsn => "dbi:$class:dbname=./t/sqlite_test",
17 # 'sqlite_' is reserved, so we use 'extra_'
19 CREATE TABLE "extra_loader_test1" (
20 "id" NOT NULL PRIMARY KEY,
25 drop => [ 'extra_loader_test1' ],
28 my ($schema, $monikers, $classes) = @_;
30 ok ((my $rs = $schema->resultset($monikers->{extra_loader_test1})),
31 'resultset for quoted table');
33 is_deeply [ $rs->result_source->columns ], [ qw/id value/ ],
34 'retrieved quoted column names from quoted table';
42 unlink './t/sqlite_test';