diff --git a/equinox-fc/Domain.Tests/Infrastructure.fs b/equinox-fc/Domain.Tests/Infrastructure.fs index eddefa50f..66dd13d73 100644 --- a/equinox-fc/Domain.Tests/Infrastructure.fs +++ b/equinox-fc/Domain.Tests/Infrastructure.fs @@ -18,14 +18,14 @@ module Cosmos = open Equinox.Cosmos let connect () = match EnvVar.tryGet "EQUINOX_COSMOS_CONNECTION", EnvVar.tryGet "EQUINOX_COSMOS_DATABASE", EnvVar.tryGet "EQUINOX_COSMOS_CONTAINER" with - | Some s,Some d,Some c -> + | Some s, Some d, Some c -> let appName = "Domain.Tests" let discovery = Discovery.FromConnectionString s - let connector = Connector(TimeSpan.FromSeconds 5., 1, TimeSpan.FromSeconds 5., Serilog.Log.Logger) - let connection = connector.Connect(appName,discovery) |> Async.RunSynchronously - let context = Context(connection,d,c) + let connector = Connector(TimeSpan.FromSeconds 5., 5, TimeSpan.FromSeconds 5., Serilog.Log.Logger) + let connection = connector.Connect(appName, discovery) |> Async.RunSynchronously + let context = Context(connection, d, c) let cache = Equinox.Cache (appName, 10) - context,cache + context, cache | s,d,c -> failwithf "Connection, Database and Container EQUINOX_COSMOS_* Environment variables are required (%b,%b,%b)" (Option.isSome s) (Option.isSome d) (Option.isSome c) diff --git a/equinox-fc/Domain.Tests/LocationTests.fs b/equinox-fc/Domain.Tests/LocationTests.fs index f3835b08f..b4bacbaad 100644 --- a/equinox-fc/Domain.Tests/LocationTests.fs +++ b/equinox-fc/Domain.Tests/LocationTests.fs @@ -62,7 +62,7 @@ type Cosmos(testOutput) = let log = testOutput |> TestOutputAdapter |> createLogger do Serilog.Log.Logger <- log - let [] properties maxEvents args = + let [] properties maxEvents args = let zeroBalance = 0 let maxEvents = max 1 maxEvents let shouldClose (state : Epoch.Folds.OpenState) = state.count > maxEvents