refactor: config in ClArray.copy and replcate tests

Author: IgorErin

tests/GraphBLAS-sharp.Tests/Common/Copy.fs

@@ -16,7 +16,9 @@ let wgSize = 32
 
 let q = Context.defaultContext.Queue
 
-let makeTest<'a when 'a: equality> copyFun (array: array<'a>) = // TODO()
+let config = Utils.defaultConfig
+
+let makeTest<'a when 'a: equality> copyFun (array: array<'a>) =
     if array.Length > 0 then
         use clArray = context.CreateClArray array
 
@@ -37,7 +39,7 @@ let makeTest<'a when 'a: equality> copyFun (array: array<'a>) = // TODO()
 let creatTest<'a when 'a: equality> =
     ClArray.copy context wgSize
     |> makeTest<'a>
-    |> testProperty $"Correctness test on random %A{typeof<'a>} arrays"
+    |> testPropertyWithConfig config $"Correctness test on random %A{typeof<'a>} arrays"
 
 let testCases =
     q.Error.Add(fun e -> failwithf "%A" e)

tests/GraphBLAS-sharp.Tests/Common/Replicate.fs

@@ -16,6 +16,8 @@ let q = Context.defaultContext.Queue
 
 let workGroupSize = 32
 
+let config = Utils.defaultConfig
+
 let makeTest<'a when 'a: equality> replicateFun (array: array<'a>) i =
     if array.Length > 0 && i > 0 then
         use clArray = context.CreateClArray array
@@ -40,7 +42,7 @@ let makeTest<'a when 'a: equality> replicateFun (array: array<'a>) i =
 let createTest<'a when 'a: equality> =
     ClArray.replicate context workGroupSize
     |> makeTest<'a>
-    |> testProperty $"Correctness test on random %A{typeof<'a>} arrays"
+    |> testPropertyWithConfig config $"Correctness test on random %A{typeof<'a>} arrays"
 
 let testCases =
     q.Error.Add(fun e -> failwithf "%A" e)

tests/GraphBLAS-sharp.Tests/Program.fs

@@ -55,10 +55,8 @@ let algorithmsTests =
 let allTests =
     testList
         "All tests"
-        [ commonTests
-          matrixTests
-          vectorTests
-          algorithmsTests ]
+        [ Common.Copy.tests
+          Common.Replicate.tests ]
     |> testSequenced
 
 [<EntryPoint>]