);
},
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,
# http://www.ibphoenix.com/downloads/60DataDef.zip
#
# Numeric types
- # XXX rewrite low precision floats to 'real'
'smallint' => { data_type => 'smallint' },
'int' => { data_type => 'integer' },
'integer' => { data_type => 'integer' },
'bigint' => { data_type => 'bigint' },
- 'float' => { data_type => 'float' },
+ 'float' => { data_type => 'real' },
'double precision' =>
{ data_type => 'double precision' },
- 'real' => { data_type => 'float' },
+ 'real' => { data_type => 'real' },
- 'float(2)' => { data_type => 'float' },
- 'float(7)' => { data_type => 'float' },
+ 'float(2)' => { data_type => 'real' },
+ 'float(7)' => { data_type => 'real' },
'float(8)' => { data_type => 'double precision' },
'decimal' => { data_type => 'decimal' },
=> { data_type => 'blob sub_type text' },
},
extra => {
- count => 7,
+ count => 6,
run => sub {
$schema = shift;
my $guard = Scope::Guard->new(\&cleanup_extra);
- delete $schema->_loader->{preserve_case};
-
- my $warning;
- {
- local $SIG{__WARN__} = sub { $warning = shift };
- $schema->_loader->_setup;
- }
- like $warning, qr/'preserve_case' option/,
- 'warning mentions preserve_case option';
+ local $schema->_loader->{preserve_case} = 1;
+ $schema->_loader->_setup;
{
local $SIG{__WARN__} = sub {};