add: host tests

Author: IgorErin

benchmarks/GraphBLAS-sharp.Benchmarks/Configs.fs

@@ -18,15 +18,15 @@ type Matrix2() =
                 "NNZ",
                 fun (matrix,_) ->
                     match matrix.Format with
-                    | Coordinate -> matrix.ReadMatrixShape().Nnz
+                    | Coordinate -> matrix.ReadMatrixShape().NNZ
                     | Array -> 0
             )
             :> IColumn,
             Matrix2Column(
                 "SqrNNZ",
                 fun (_,matrix) ->
                     match matrix.Format with
-                    | Coordinate -> matrix.ReadMatrixShape().Nnz
+                    | Coordinate -> matrix.ReadMatrixShape().NNZ
                     | Array -> 0
             )
             :> IColumn,
@@ -46,7 +46,7 @@ type Matrix() =
                 "NNZ",
                 fun matrix ->
                     match matrix.Format with
-                    | Coordinate -> matrix.ReadMatrixShape().Nnz
+                    | Coordinate -> matrix.ReadMatrixShape().NNZ
                     | Array -> 0
             )
             :> IColumn,

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

@@ -139,7 +139,7 @@ module Matrix =
                              let columns = getChunkIndices first count
 
                              Some <| creatSparseVector values columns
-                        else
+                         else
                              None))
 
     let byRows (clContext: ClContext) workGroupSize =

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

@@ -301,13 +301,15 @@ module Expand =
                 runRow processor allocationMode rightMatrix rightMatrixRowsLengths
 
             split processor allocationMode leftMatrix
-            |> Seq.map (fun lazyRow ->
-                Option.bind (fun row ->
-                    let result = runRow row
-                    row.Dispose processor
-
-                    result
-                ) lazyRow.Value)
+            |> Seq.map
+                (fun lazyRow ->
+                    Option.bind
+                        (fun row ->
+                            let result = runRow row
+                            row.Dispose processor
+
+                            result)
+                        lazyRow.Value)
             |> Seq.toArray
             |> fun rows ->
                 rightMatrixRowsLengths.Free processor

src/GraphBLAS-sharp/IO/MtxReader.fs

@@ -34,13 +34,13 @@ type MtxReader(pathToFile: string) =
             streamReader.ReadLine().Split(' ')
             |> Array.map int
 
-        let nrows = size.[0]
-        let ncols = size.[1]
+        let rowsCount = size.[0]
+        let columnsCount = size.[1]
         let nnz = size.[2]
 
-        {| RowCount = nrows
-           ColumnCount = ncols
-           Nnz = nnz |}
+        {| RowCount = rowsCount
+           ColumnCount = columnsCount
+           NNZ = nnz |}
 
     member this.ReadMatrix(converter: string -> 'a) : Matrix.COO<'a> =
         if object <> MtxMatrix then

src/GraphBLAS-sharp/Objects/Matrix.fs

@@ -24,7 +24,8 @@ module Matrix =
                         |> List.mapi (fun i x -> (x, i))
                         |> List.filter (fun pair -> not <| isZero (fst pair)))
                 |> List.fold
-                    (fun (rowPointers, valueInx) row -> ((rowPointers.Head + row.Length) :: rowPointers), valueInx @ row)
+                    (fun (rowPointers, valueInx) row ->
+                        ((rowPointers.Head + row.Length) :: rowPointers), valueInx @ row)
                     ([ 0 ], [])
 
             { Values =
@@ -125,7 +126,8 @@ module Matrix =
                         |> List.mapi (fun i x -> (x, i))
                         |> List.filter (fun pair -> not <| isZero (fst pair)))
                 |> List.fold
-                    (fun (colPointers, valueInx) col -> ((colPointers.Head + col.Length) :: colPointers), valueInx @ col)
+                    (fun (colPointers, valueInx) col ->
+                        ((colPointers.Head + col.Length) :: colPointers), valueInx @ col)
                     ([ 0 ], [])
 
             { Values =