5 use DBIx::Class::Schema::Loader;
7 # use this if you keep a copy of DBD::Sybase linked to FreeTDS somewhere else
9 if (my $lib_dirs = $ENV{DBICTEST_MSSQL_PERL5LIB}) {
10 unshift @INC, $_ for split /:/, $lib_dirs;
14 my ($dsn, $user, $pass);
16 for (qw/MSSQL_ODBC MSSQL_ADO MSSQL/) {
17 next unless $ENV{"DBICTEST_${_}_DSN"};
19 $dsn = $ENV{"DBICTEST_${_}_DSN"};
20 $user = $ENV{"DBICTEST_${_}_USER"};
21 $pass = $ENV{"DBICTEST_${_}_PASS"};
26 plan skip_all => 'perl 5.8 required for this test'
29 plan ($dsn ? (tests => 1) : (skip_all => 'MSSQL required for this test'));
32 DBIx::Class::Schema::Loader::make_schema_at(
34 { naming => 'current' },
35 [ $dsn, $user, $pass ],
37 } 'dynamic MSSQL schema created using make_schema_at';