OperationCase added to Helpers

Author: kirillgarbar

src/GraphBLAS-sharp.Backend/Matrix/Matrix.fs

@@ -41,13 +41,13 @@ module Matrix =
             | MatrixCSR _ -> copy processor workGroupSize matrix
 
     let toCOO (clContext: ClContext) workGroupSize =
-        let toCOO = CSRMatrix.toCOO clContext
+        let toCOO = CSRMatrix.toCOO clContext workGroupSize
         let copy = copy clContext
 
         fun (processor: MailboxProcessor<_>) (matrix: Matrix<'a>) ->
             match matrix with
             | MatrixCOO _ -> copy processor workGroupSize matrix
-            | MatrixCSR m -> toCOO workGroupSize processor m |> MatrixCOO
+            | MatrixCSR m -> toCOO processor m |> MatrixCOO
 
     let eWiseAdd (clContext: ClContext) (opAdd: Expr<'a -> 'a -> 'a>) workGroupSize =
         let COOeWiseAdd =

tests/GraphBLAS-sharp.Tests/Helpers.fs

@@ -426,6 +426,21 @@ module Utils =
 
                 Brahma.FSharp.OpenCL.ClContext(clPlatform, clDeviceType))
 
+    type OperationCase =
+        { ClContext: ClContext
+          MatrixCase: MatrixFromat }
+    
+    let testCases =
+        [ avaliableContexts "" |> Seq.map box
+          listOfUnionCases<MatrixFromat>
+          |> Seq.map box ]
+        |> List.map List.ofSeq
+        |> cartesian
+        |> List.map
+            (fun list ->
+                { ClContext = unbox list.[0]
+                  MatrixCase = unbox list.[1] })
+
     let createMatrixFromArray2D matrixCase array isZero =
         match matrixCase with
         | CSR -> MatrixCSR <| CSRMatrix.FromArray2D(array, isZero)