PERL-351 skip tests if database has auth enabled

mongodb-labs · Jun 10, 2014 · 2fc4aa5 · 2fc4aa5
1 parent cd49213
commit 2fc4aa5
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git a/Changes b/Changes
@@ -20,6 +20,9 @@
 
   [Testing]
 
+  - PERL-351 fixed test failures if the local database has auth enabled;
+    tests will skip instead of fail
+
   - PERL-356 enabled additional tests if the test database is a replica set
     or sharded cluster
 

diff --git a/t/lib/MongoDBTest.pm b/t/lib/MongoDBTest.pm
@@ -40,7 +40,9 @@ BEGIN {
             host => $host, ssl => $ENV{MONGO_SSL}, find_master => 1
         );
         $testdb = $conn->get_database('testdb' . time()) or
-            die "Can't get database";
+            die "Can't get database\n";
+        eval { $conn->get_database("admin")->_try_run_command({ serverStatus => 1 }) }
+            or die "Database has auth enabled\n";
     };
 
     if ( $@ ) {