ArraysExnensions methods name changed

Author: kirillgarbar

src/GraphBLAS-sharp.Backend/Objects/ArraysExtentions.fs

@@ -18,14 +18,14 @@ module ArraysExtensions =
     type 'a ``[]`` with
         member this.Size = this.Length
 
-        member this.ToString() =
-            [ sprintf "Dense Vector\n"
-              sprintf "Size:    %i \n" this.Length
-              sprintf "Values:  %A \n" this ]
-            |> String.concat ""
-
         member this.ToDevice(context: ClContext) = context.CreateClArray this
 
-    let FromArray (array: 'a [], isZero: 'a -> bool) =
+    let DenseVectorToString (array: 'a []) =
+        [ sprintf "Dense Vector\n"
+          sprintf "Size:    %i \n" array.Length
+          sprintf "Values:  %A \n" array ]
+        |> String.concat ""
+
+    let DenseVectorFromArray (array: 'a [], isZero: 'a -> bool) =
         array
         |> Array.map (fun v -> if isZero v then None else Some v)

tests/GraphBLAS-sharp.Tests/Helpers.fs

@@ -536,9 +536,12 @@ module Utils =
 
     let createVectorFromArray vectorCase array isZero =
         match vectorCase with
-        | Backend.VectorFormat.COO ->
-            Backend.VectorCOO
-            <| Backend.COOVector.FromArray(array, isZero)
+        | Backend.VectorFormat.Sparse ->
+            Backend.VectorSparse
+            <| Backend.SparseVector.FromArray(array, isZero)
+        | Backend.VectorFormat.Dense ->
+            Backend.VectorDense
+            <| Backend.ArraysExtensions.FromArray(array, isZero)
 
     let compareArrays areEqual (actual: 'a []) (expected: 'a []) message =
         sprintf "%s. Lengths should be equal. Actual is %A, expected %A" message actual expected