add: ClArray.concat tests

Author: IgorErin

src/GraphBLAS-sharp.Backend/Common/ClArray.fs

@@ -607,12 +607,10 @@ module ClArray =
             let result =
                 clContext.CreateClArrayWithSpecificAllocationMode(allocationMode, resultLength)
 
-            let assign = assign processor result
-
             // write each array to result
             Seq.fold
-                (fun previousLength array ->
-                    assign previousLength array
+                (fun previousLength (array: ClArray<_>) ->
+                    assign processor array previousLength result
                     previousLength + array.Length)
                 0
                 sourceArrays

tests/GraphBLAS-sharp.Tests/Common/ClArray/Concat.fs

@@ -3,7 +3,6 @@ module GraphBLAS.FSharp.Tests.Backend.Common.ClArray.Concat
 open Expecto
 open Brahma.FSharp
 open GraphBLAS.FSharp.Backend.Common
-open GraphBLAS.FSharp.Test
 open GraphBLAS.FSharp.Tests
 open GraphBLAS.FSharp.Backend.Objects.ArraysExtensions
 open GraphBLAS.FSharp.Backend.Objects.ClContext
@@ -12,13 +11,12 @@ let context = Context.defaultContext.ClContext
 
 let processor = Context.defaultContext.Queue
 
-let config =
-    { Utils.defaultConfig with
-          arbitrary = [ typeof<Generators.ArrayAndChunkPositions> ] }
+let config = Utils.defaultConfig
 
-let makeTest<'a> isEqual testFun (arrays: 'a [] seq) =
+let makeTest<'a> isEqual testFun (arrays: 'a [] []) =
 
-    if Seq.length arrays > 0 then
+    if Seq.length arrays > 0
+        && arrays |> Seq.forall (fun array -> array.Length > 0) then
 
         let clArrays = arrays |> Seq.map context.CreateClArray
 
@@ -35,14 +33,15 @@ let makeTest<'a> isEqual testFun (arrays: 'a [] seq) =
 
 let createTest<'a> isEqual =
     ClArray.concat context Utils.defaultWorkGroupSize
-    |> makeTest isEqual
+    |> makeTest<'a> isEqual
     |> testPropertyWithConfig config $"test on %A{typeof<'a>}"
 
 let tests =
     [ createTest<int> (=)
 
       if Utils.isFloat64Available context.ClDevice then
-        createTest<float> (=)
+        createTest<float> Utils.floatIsEqual
 
-      createTest<float32> (=)
+      createTest<float32> Utils.float32IsEqual
       createTest<bool> (=) ]
+    |> testList "Concat"

tests/GraphBLAS-sharp.Tests/Program.fs

@@ -95,5 +95,5 @@ open GraphBLAS.FSharp.Tests
 
 [<EntryPoint>]
 let main argv =
-    testList "lol" [ Common.ClArray.Assign.tests ]
+    testList "lol" [ Common.ClArray.Concat.tests ] |> testSequenced
     |> runTestsWithCLIArgs [] argv