t/10_09firebird_interbase_common.t

   1 use DBIx::Class::Schema::Loader::Optional::Dependencies
   2     -skip_all_without => 'test_rdbms_firebird_interbase';
   3
   4 use strict;
   5 use warnings;
   6 use DBIx::Class::Schema::Loader::Utils qw/sigwarn_silencer/;
   7 use lib 't/lib';
   8
   9 use dbixcsl_firebird_tests;
  10
  11 {
  12     # get rid of stupid warning from InterBase/GetInfo.pm
  13     local $SIG{__WARN__} = sigwarn_silencer(
  14         qr{^(?:Use of uninitialized value|Argument "[0-9_]+" isn't numeric|Missing argument) in sprintf at \S+DBD/InterBase/GetInfo.pm line \d+\.$}
  15     );
  16     require DBD::InterBase::GetInfo;
  17 }
  18
  19 my %conninfo;
  20 @conninfo{qw(dsn user password)} = map { $ENV{"DBICTEST_FIREBIRD_INTERBASE_$_"} } qw(DSN USER PASS);
  21
  22 dbixcsl_firebird_tests->new(
  23     %conninfo,
  24     connect_info_opts => {
  25         on_connect_call => 'use_softcommit',
  26     },
  27 )->run_tests;
  28
  29 # vim:et sts=4 sw=4 tw=0: