X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F10_07mssql_common.t;h=5a31befdd837c648da42272c6dff3559d163af14;hb=b826c5890a50c641437a87a2f06ebe4d56d2a139;hp=ccdc8ff06b8ed4014676282148bd390caa84a2a2;hpb=112415f1a0c30d7fb77412b91da7890e54b43393;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

diff --git a/t/10_07mssql_common.t b/t/10_07mssql_common.t
index ccdc8ff..5a31bef 100644
--- a/t/10_07mssql_common.t
+++ b/t/10_07mssql_common.t
@@ -497,6 +497,12 @@ EOF
             }
 
             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 {
@@ -722,6 +728,12 @@ sub cleanup_schemas {
 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');