update unit tests + readme

fsprojects · Dec 26, 2024 · e9b2ac6 · e9b2ac6
1 parent 385674e
commit e9b2ac6
Show file tree

Hide file tree

Showing 5 changed files with 125 additions and 98 deletions.
diff --git a/FSharp.MongoDB.Driver.Tests/AcceptanceTests.fs b/FSharp.MongoDB.Driver.Tests/AcceptanceTests.fs
@@ -1,5 +1,5 @@
 // module FSharp.MongoDB.Driver.Tests
-
+//
 // open System
 // open FsUnit
 // open NUnit.Framework
@@ -8,37 +8,37 @@
 // open System.Linq
 // open TestUtils
 // open MongoDB.Bson.Serialization.Attributes
-
+//
 // type ObjectWithList() =
 //     member val Id : BsonObjectId = newBsonObjectId() with get, set
 //     member val List : string list = [] with get, set
-
+//
 // type RecordType =
 //     { Id : BsonObjectId
 //       Name : string }
-
+//
 // [<RequireQualifiedAccessAttribute>]
 // [<CLIMutable>]
 // type RecordTypeOptId =
 //     { [<BsonIgnoreIfDefault>] Id : ObjectId
 //       Name : string }
-
+//
 // type Child =
 //     { ChildName: string
 //       Age: int }
-
+//
 // type Person =
 //     { Id: BsonObjectId
 //       PersonName: string
 //       Age: int
 //       Childs: Child seq }
-
+//
 // type DimmerSwitch =
 //     | Off
 //     | Dim of int
 //     | DimMarquee of int * string
 //     | On
-
+//
 // type RecordWithCollections =
 //     { Id: BsonObjectId
 //       IntVal: int
@@ -48,25 +48,25 @@
 //       SetVal: Set<string> option
 //       MapVal: Map<string, int> option
 //       OptionVal: int option }
-
+//
 // type ObjectWithDimmer() =
 //     member val Id : BsonObjectId = newBsonObjectId() with get, set
 //     member val Switch : DimmerSwitch = Off with get, set
-
+//
 // type ObjectWithDimmers() =
 //     member val Id : BsonObjectId = newBsonObjectId() with get, set
 //     member val Kitchen : DimmerSwitch = Off with get, set
 //     member val Bedroom1 : DimmerSwitch = Off with get, set
 //     member val Bedroom2 : DimmerSwitch = Off with get, set
-
+//
 // type ObjectWithOptions() =
 //     member val Id : BsonObjectId = newBsonObjectId() with get, set
 //     member val Age : int option = None with get, set
-
+//
 // let mutable client: MongoClient = Unchecked.defaultof<MongoClient>
 // let mutable db: IMongoDatabase = Unchecked.defaultof<IMongoDatabase>
-
-
+//
+//
 // [<OneTimeSetUp>]
 // let init() =
 //     let connectionString = "mongodb://localhost"
@@ -75,76 +75,76 @@
 //     client.DropDatabase(dbname)
 //     db <- client.GetDatabase(dbname)
 //     Register()
-
+//
 // [<OneTimeTearDown>]
 // let teardown() =
 //     client.Dispose()
-
-
+//
+//
 // [<Test>]
 // let ``It can serialize an object with a list``() =
 //     let collection = db.GetCollection<ObjectWithList> "ObjectWithList"
 //     let obj = ObjectWithList(List = [ "hello"; "world" ])
 //     collection.InsertOne(obj)
-
+//
 //     let genCollection = db.GetCollection<ObjectWithList> "ObjectWithList"
 //     let fromDb = genCollection.Find(fun x -> x.Id = obj.Id).ToList().First()
 //     let array = fromDb.List
 //     array.Length |> should equal 2
-
+//
 // [<Test>]
 // let ``It can deserialze lists``() =
 //     let list = BsonArray([ "hello"; "world" ])
 //     let id = newBsonObjectId()
 //     let document = BsonDocument([ BsonElement("_id", id); BsonElement("List", list) ])
 //     let collection = db.GetCollection<BsonDocument> "ObjectWithList"
 //     collection.InsertOne document
-
+//
 //     let collection = db.GetCollection<ObjectWithList> "ObjectWithList"
 //     let fromDb = collection.Find(fun x -> x.Id = id).ToList().First()
 //     let array = fromDb.List
 //     array.Length |> should equal 2
-
+//
 // [<Test>]
 // let ``It can serialize records``() =
 //     let collection = db.GetCollection<RecordType> "RecordType"
 //     let obj = { Id = newBsonObjectId(); Name = "test"  }
 //     collection.InsertOne obj
-
+//
 //     let genCollection = db.GetCollection<BsonDocument> "RecordType"
 //     let fromDb = genCollection |> findById obj.Id
 //     let name = fromDb["Name"].AsString
 //     name |> should equal "test"
-
+//
 // [<Test>]
 // let ``It can serialize records and generate Id``() =
 //     let collection = db.GetCollection<RecordTypeOptId> "RecordTypeOptId"
 //     let obj = { RecordTypeOptId.Id = Unchecked.defaultof<ObjectId> ; RecordTypeOptId.Name = "test"  }
 //     collection.InsertOne obj
-
+//
 //     let genCollection = db.GetCollection<RecordTypeOptId> "RecordTypeOptId"
 //     let fromDb = genCollection.Find(fun x -> x.Name = "test").First()
 //     fromDb.Id |> should equal obj.Id
 //     fromDb.Id |> should not' (equal Unchecked.defaultof<ObjectId>)
-
+//
 // [<Test>]
 // let ``It can deserialize records``() =
 //     let id = newBsonObjectId()
 //     let document = BsonDocument([BsonElement("_id", id); BsonElement("Name", BsonString("value"))])
 //     let collection = db.GetCollection "RecordType"
 //     collection.InsertOne(document)
-
+//
 //     let collection = db.GetCollection<RecordType>("RecordType")
 //     let fromDb = collection.Find(fun x -> x.Id = id).ToList().First()
 //     Assert.NotNull(fromDb)
 //     fromDb.Name |> should equal "value"
-
+//
 // [<Test>]
 // let ``It can serialize and deserialize nested records``() =
 //     let collection = db.GetCollection<Person> "Person"
 //     let obj = { Id = newBsonObjectId(); PersonName = "test"; Age = 33; Childs = [{ChildName = "Adrian"; Age = 3}] }
 //     collection.InsertOne obj
-
+//
 //     let genCollection = db.GetCollection<Person> "Person"
 //     let person =
 //         query {
@@ -153,22 +153,22 @@
 //             select p
 //             headOrDefault
 //         }
-
+//
 //     person |> should not' (be null)
 //     person.PersonName |> should equal "test"
 //     person.Age |> should equal 33
 //     person.Childs |> Seq.length |> should equal 1
-
+//
 //     let child = person.Childs |> Seq.head
 //     child.ChildName |> should equal "Adrian"
 //     child.Age |> should equal 3
-
+//
 // [<Test>]
 // let ``It can serialize DimmerSwitch types``() =
 //     let collection = db.GetCollection<ObjectWithDimmer> "ObjectWithDimmer"
 //     let obj = ObjectWithDimmer(Switch = DimMarquee(42, "loser"))
 //     collection.InsertOne obj
-
+//
 //     let collection = db.GetCollection<BsonDocument> "ObjectWithDimmer"
 //     let fromDb = collection |> findById obj.Id
 //     let switch = fromDb.GetElement("Switch")
@@ -179,75 +179,75 @@
 //     array.Count |> should equal 2
 //     array.[0].AsInt32 |> should equal 42
 //     array.[1].AsString |> should equal "loser"
-
+//     
 // [<Test>]
 // let ``It can serialize option types``() =
 //     let collection = db.GetCollection<ObjectWithOptions> "ObjectWithOptions"
 //     let obj = ObjectWithOptions(Age = Some 42)
 //     collection.InsertOne obj
-
+//
 //     let collection = db.GetCollection<BsonDocument> "ObjectWithOptions"
 //     let fromDb = collection |> findById obj.Id
 //     let age = fromDb.GetElement("Age")
 //     let v = age.Value
 //     v.AsInt32 |> should equal 42
-
+//
 // [<Test>]
 // let ``It can serialize option types with None``() =
 //     let collection = db.GetCollection<ObjectWithOptions> "ObjectWithOptions"
 //     let obj = ObjectWithOptions(Age = None)
 //     collection.InsertOne obj
-
+//
 //     let collection = db.GetCollection<BsonDocument> "ObjectWithOptions"
 //     let fromDb = collection |> findById obj.Id
 //     let age = fromDb.GetElement("Age")
 //     let v = age.Value
 //     v.AsBsonNull |> should equal BsonNull.Value
-
+//
 // [<Test>]
 // let ``It can deserialize option types``() =
 //     let collection = db.GetCollection<ObjectWithOptions> "ObjectWithOptions"
 //     let document = ObjectWithOptions(Id = newBsonObjectId(), Age = Some 42)
 //     collection.InsertOne document
-
+//
 //     let collection = db.GetCollection<ObjectWithOptions> "ObjectWithOptions"
 //     let fromDb = collection.Find(fun x -> x.Id = document.Id).ToList().First()
 //     match fromDb.Age with
 //     | Some 42 -> ()
 //     | _ -> failwith "expected Some 42 but got something else"
-
+//
 // [<Test>]
 // let ``It can deserialize option types from undefined``() =
 //     let id = newBsonObjectId()
 //     let document = BsonDocument([BsonElement("_id", id)])
 //     let collection = db.GetCollection "ObjectWithOptions"
 //     collection.InsertOne document
-
+//
 //     let collection = db.GetCollection<ObjectWithOptions> "ObjectWithOptions"
 //     let fromDb = collection.Find(fun x -> x.Id = id).ToList().First()
 //     fromDb.Age |> should equal None
-
+//
 // [<Test>]
 // let ``We can integrate serialize & deserialize on DimmerSwitches``() =
 //     let collection = db.GetCollection<ObjectWithDimmers> "ObjectWithDimmers"
 //     let obj = ObjectWithDimmers(Kitchen = Off,
 //                                 Bedroom1 = Dim 42,
 //                                 Bedroom2 = DimMarquee(12, "when I was little..."))
 //     collection.InsertOne obj
-
+//
 //     let fromDb = collection.Find(fun x -> x.Id = obj.Id).ToList().First()
 //     match fromDb.Kitchen with
 //     | Off -> ()
 //     | _ -> failwith "Kitchen light wasn't off"
-
+//
 //     match fromDb.Bedroom1 with
 //     | Dim 42 -> ()
 //     | _ -> failwith "Bedroom1 light wasn't dim enough"
-
+//
 //     match fromDb.Bedroom2 with
 //     | DimMarquee(12, "when I was little...") -> ()
 //     | _ -> failwith "Bedroom2 doesn't have the party we thought"
-
+//
 // [<Test>]
 // let ``It can serialize record with list`` () =
 //     let collection = db.GetCollection<RecordWithCollections> "RecordWithCollections"
@@ -261,9 +261,9 @@
 //           MapVal = ["toto", 42; "titi", 666] |> Map |> Some
 //           OptionVal = Some 123 }
 //     collection.InsertOne obj
-
+//
 //     let testCollection = db.GetCollection<BsonDocument> "RecordWithCollections"
 //     Console.WriteLine((testCollection |> findById obj.Id).ToJson())
-
+//     
 //     let fromDb = collection.Find(fun x -> x.Id = obj.Id).ToList().First()
 //     fromDb |> should equal obj