migrate Databases test

Sources/MongoDBTests/Main.swift

@@ -10,7 +10,6 @@ enum Main:TestMain
     [
         ChangeStreams       <ReplicatedConfiguration>.self,
         Cursors             <ReplicatedConfiguration>.self,
-        Databases           <ReplicatedConfiguration>.self,
         Fsync               <ReplicatedConfiguration>.self,
         Indexes             <ReplicatedConfiguration>.self,
 
@@ -20,7 +19,6 @@ enum Main:TestMain
         //  complete cryptographic authentication, and the driver will time out before it
         //  completes.
         Cursors             <SingleConfiguration>.self,
-        Databases           <SingleConfiguration>.self,
         Fsync               <SingleConfiguration>.self,
         Indexes             <SingleConfiguration>.self,
     ]

Sources/MongoDBTests2/Databases.swift

@@ -0,0 +1,36 @@
+import MongoDB
+import Testing
+
+@Suite
+struct Databases:Mongo.TestBattery
+{
+    let database:Mongo.Database = "Databases"
+
+    @Test(arguments: [.single, .replicated] as [any Mongo.TestConfiguration])
+    func databases(_ configuration:any Mongo.TestConfiguration) async throws
+    {
+        try await self.run(under: configuration)
+    }
+
+    func run(with pool:Mongo.SessionPool) async throws
+    {
+        let session:Mongo.Session = try await .init(from: pool)
+
+        try await session.run(
+            command: Mongo.Create<Mongo.Collection>.init("Placeholder"),
+            against: self.database)
+
+        let names:[Mongo.Database] = try await session.run(
+            command: Mongo.ListDatabases.NameOnly.init(),
+            against: .admin)
+
+        #expect(names.contains(self.database))
+
+        let (size, databases):(Int, [Mongo.DatabaseMetadata]) = try await session.run(
+            command: Mongo.ListDatabases.init(),
+            against: .admin)
+
+        #expect(size > 0)
+        #expect(databases.contains { $0.database == self.database })
+    }
+}