);
},
null => '',
- loader_options => { preserve_case => 0 },
+ preserve_case_mode_is_exclusive => 1,
+ quote_char => '"',
+ warnings => [ qr/'preserve_case' option/ ],
connect_info => [ ($dbd_interbase_dsn ? {
dsn => $dbd_interbase_dsn,
user => $dbd_interbase_user,
=> { data_type => 'blob sub_type text' },
},
extra => {
- count => 7,
+ count => 6,
run => sub {
$schema = shift;
+ my ($monikers, $classes, $self) = @_;
cleanup_extra();
my $guard = Scope::Guard->new(\&cleanup_extra);
- delete $schema->_loader->{preserve_case};
+ local $schema->_loader->{preserve_case} = 1;
+ $schema->_loader->_setup;
- my $warning;
- {
- local $SIG{__WARN__} = sub { $warning = shift };
- $schema->_loader->_setup;
- }
- like $warning, qr/'preserve_case' option/,
- 'warning mentions preserve_case option';
-
- {
- local $SIG{__WARN__} = sub {};
- $schema->rescan;
- }
+ $self->rescan_without_warnings($schema);
ok ((my $rsrc = eval { $schema->resultset('FirebirdLoaderTest1')->result_source }),
'got rsrc for mixed case table');
else {
# get rid of stupid warning from InterBase/GetInfo.pm
if ($dbd_interbase_dsn) {
- local $SIG{__WARN__} = sub {};
+ local $SIG{__WARN__} = sub { warn @_
+ unless $_[0] =~ m|^Use of uninitialized value in sprintf at \S+DBD/InterBase/GetInfo\.pm line \d+\.$| };
require DBD::InterBase;
require DBD::InterBase::GetInfo;
}
eval { $dbh->do($stmt) };
}
}
+# vim:et sts=4 sw=4 tw=0: