my $schema = DBICTest::Schema->connect($dsn, $user, $pass);
+my $name_sep = $schema->storage->_dbh_get_info('SQL_QUALIFIER_NAME_SEPARATOR');
+
my $dbh = $schema->storage->dbh;
# test RNO and name_sep detection
-my $name_sep = $dbh->get_info(41);
is $schema->storage->sql_maker->name_sep, $name_sep,
'name_sep detection';
is( $lim->all, 2, 'Number of ->all objects matches count' );
# Limit with select-lock
-TODO: {
+{
local $TODO = "Seems we can't SELECT ... FOR ... on subqueries";
lives_ok {
$schema->txn_do (sub {
# clean up our mess
END {
- my $dbh = eval { $schema->storage->_dbh };
- $dbh->do("DROP TABLE artist") if $dbh;
+ my $dbh = eval { $schema->storage->_dbh };
+ $dbh->do("DROP TABLE artist") if $dbh;
+ undef $schema;
}