Add some empty set tests to TypeProviderUsers.

Author: rspeele

src/TypeProviderUsers/TypeProviderUser.Postgres/TestSelects.fs

@@ -83,4 +83,14 @@ let ``test optional guid parameter`` () =
     printfn "%A" results
 
 
+type TestInEmptySet = SQL<"""
+select * from Users where RandomId in @ids
+""">
+
+[<Test>]
+let ``test in empty set`` () =
+    let results = TestInEmptySet.Command([||]) |> runOnTestData
+    Assert.AreEqual(0, results.Count)
+    printfn "%A" results
+
 

src/TypeProviderUsers/TypeProviderUser.SQLite/TestSelects.fs

@@ -78,6 +78,17 @@ type TestOptionalGuidParameter = SQL<"""
 select * from Users where RandomId = @id or @id is null
 """>
 
+
+type TestInEmptySet = SQL<"""
+select * from Users where RandomId in @ids
+""">
+
+[<Test>]
+let ``test in empty set`` () =
+    let results = TestInEmptySet.Command([||]) |> runOnTestData
+    Assert.AreEqual(0, results.Count)
+    printfn "%A" results
+
 [<Test>]
 let ``test optional guid parameter`` () =
     let results = TestOptionalGuidParameter.Command(Some (Guid.NewGuid())) |> runOnTestData
@@ -130,3 +141,4 @@ let ``test raw sql parameter`` () =
     for result in results do
         printfn "%A" result.Email
 
+