}
SKIP: {
+ # for ADO
+ my $warn_handler = $SIG{__WARN__} || sub { warn @_ };
+ local $SIG{__WARN__} = sub {
+ $warn_handler->(@_) unless $_[0] =~ /Changed database context/;
+ };
+
my $dbh = $schema->storage->dbh;
try {
sub cleanup_databases {
return if $ENV{SCHEMA_LOADER_TESTS_NOCLEANUP};
+ # for ADO
+ my $warn_handler = $SIG{__WARN__} || sub { warn @_ };
+ local $SIG{__WARN__} = sub {
+ $warn_handler->(@_) unless $_[0] =~ /Changed database context/;
+ };
+
my $dbh = $schema->storage->dbh;
$dbh->do('USE dbicsl_test1');