refactor(Tests): Standardise ArbMap.defGen helper (#412)

jet · Jul 26, 2023 · 602a64c · 602a64c
1 parent 0291636
commit 602a64c
Show file tree

Hide file tree

Showing 5 changed files with 20 additions and 18 deletions.
diff --git a/samples/Store/Domain.Tests/Infrastructure.fs b/samples/Store/Domain.Tests/Infrastructure.fs
@@ -8,11 +8,11 @@ open Swensen.Unquote
 open System
 open global.Xunit
 
-module Arb =
-    let generate<'t> = ArbMap.defaults |> ArbMap.generate<'t>
+module ArbMap =
+    let defGen<'t> = ArbMap.defaults |> ArbMap.generate<'t>
 
 type FsCheckGenerators =
-    static member SkuId = Arb.generate |> Gen.map SkuId |> Arb.fromGen
+    static member SkuId = ArbMap.defGen |> Gen.map SkuId |> Arb.fromGen
 
 type DomainPropertyAttribute() =
     inherit FsCheck.Xunit.PropertyAttribute(QuietOnSuccess = true, Arbitrary=[| typeof<FsCheckGenerators> |])

diff --git a/samples/Store/Integration/Infrastructure.fs b/samples/Store/Integration/Infrastructure.fs
@@ -4,13 +4,13 @@ open Domain
 open FsCheck.FSharp
 open System
 
-module Arb =
-    let generate<'t> = ArbMap.defaults |> ArbMap.generate<'t>
+module ArbMap =
+    let defGen<'t> = ArbMap.defaults |> ArbMap.generate<'t>
 
 type FsCheckGenerators =
-    static member SkuId = Arb.generate |> Gen.map SkuId |> Arb.fromGen
+    static member SkuId = ArbMap.defGen |> Gen.map SkuId |> Arb.fromGen
     static member ContactPreferencesId =
-        Arb.generate<Guid>
+        ArbMap.defGen<Guid>
         |> Gen.map (fun x -> sprintf "%s@test.com" (x.ToString("N")))
         |> Gen.map ContactPreferences.ClientId
         |> Arb.fromGen
diff --git a/tests/Equinox.CosmosStore.Integration/CosmosFixturesInfrastructure.fs b/tests/Equinox.CosmosStore.Integration/CosmosFixturesInfrastructure.fs
@@ -4,13 +4,13 @@ open Domain
 open FsCheck.FSharp
 open System
 
-module Arb =
-    let generate<'t> = ArbMap.defaults |> ArbMap.generate<'t>
+module ArbMap =
+    let defGen<'t> = ArbMap.defaults |> ArbMap.generate<'t>
 
 type FsCheckGenerators =
-    static member SkuId = Arb.generate |> Gen.map SkuId |> Arb.fromGen
+    static member SkuId = ArbMap.defGen |> Gen.map SkuId |> Arb.fromGen
     static member ContactPreferencesId =
-        Arb.generate<Guid>
+        ArbMap.defGen<Guid>
         |> Gen.map (fun x -> sprintf "%s@test.com" (x.ToString("N")))
         |> Gen.map ContactPreferences.ClientId
         |> Arb.fromGen

diff --git a/tests/Equinox.EventStoreDb.Integration/Infrastructure.fs b/tests/Equinox.EventStoreDb.Integration/Infrastructure.fs
@@ -5,16 +5,17 @@ open FsCheck.FSharp
 open System
 open FSharp.UMX
 
-module Arb =
-    let generate<'t> = ArbMap.defaults |> ArbMap.generate<'t>
+module ArbMap =
+    let defGen<'t> = ArbMap.defaults |> ArbMap.generate<'t>
+
 type FsCheckGenerators =
-    static member SkuId = Arb.generate |> Gen.map SkuId |> Arb.fromGen
+    static member SkuId = ArbMap.defGen |> Gen.map SkuId |> Arb.fromGen
     static member ContactPreferencesId =
-        Arb.generate<Guid>
+        ArbMap.defGen<Guid>
         |> Gen.map (fun x -> sprintf "%s@test.com" (x.ToString("N")))
         |> Gen.map ContactPreferences.ClientId
         |> Arb.fromGen
-    static member RequestId = Arb.generate<Guid> |> Gen.map (fun x -> RequestId.parse %x) |> Arb.fromGen
+    static member RequestId = ArbMap.defGen<Guid> |> Gen.map (fun x -> RequestId.parse %x) |> Arb.fromGen
 
 #if STORE_POSTGRES || STORE_MSSQL || STORE_MYSQL
 open Equinox.SqlStreamStore

diff --git a/tests/Equinox.MemoryStore.Integration/MemoryStoreIntegration.fs b/tests/Equinox.MemoryStore.Integration/MemoryStoreIntegration.fs
@@ -5,10 +5,11 @@ open Equinox.MemoryStore
 open FsCheck.FSharp
 open Swensen.Unquote
 
-let genDefault<'t> = ArbMap.defaults |> ArbMap.generate<'t>
+module ArbMap =
+    let defGen<'t> = ArbMap.defaults |> ArbMap.generate<'t>
 
 type FsCheckGenerators =
-    static member SkuId = genDefault |> Gen.map SkuId |> Arb.fromGen
+    static member SkuId = ArbMap.defGen |> Gen.map SkuId |> Arb.fromGen
 
 type AutoDataAttribute() =
     inherit FsCheck.Xunit.PropertyAttribute(Arbitrary = [| typeof<FsCheckGenerators> |], MaxTest = 1, QuietOnSuccess = true)