add code that fails for matching bulkDocs results

vschep · Dec 5, 2018 · 5a7cb57 · 5a7cb57
1 parent 16930ea
commit 5a7cb57
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/tests/CoreTests.fs b/tests/CoreTests.fs
@@ -164,6 +164,13 @@ describe "Core tests" <| fun _ ->
         opt.docs <- !!data
       )
       let! results = db.bulkDocs options
+
+      results
+      |> Seq.iter (fun result ->
+          match result with
+          | U2.Case1 response -> printfn "--- result: %A" result
+          | U2.Case2 error -> printfn "--- error: %A" error)
+
       return results.Count = data.Length
     }
       |> Promise.map(fun actual -> equal true actual)