refactor: Naming, Generators

Author: IgorErin

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

@@ -779,8 +779,7 @@ module ClArray =
             if index < 0 || index >= array.Length then
                 failwith "Index out of range"
 
-            let value =
-                clContext.CreateClCell value
+            let value = clContext.CreateClCell value
 
             let kernel = program.GetKernel()
 

tests/GraphBLAS-sharp.Tests/Backend/Common/ClArray/Item.fs

@@ -12,7 +12,9 @@ let context = Context.defaultContext.ClContext
 
 let processor = Context.defaultContext.Queue
 
-let config = { Utils.defaultConfig with arbitrary = [ typeof<Generators.ClArray.Item> ] }
+let config =
+    { Utils.defaultConfig with
+          arbitrary = [ typeof<Generators.ClArray.Item> ] }
 
 let makeTest<'a when 'a: equality> testFun (array: 'a [], position) =
 
@@ -39,7 +41,7 @@ let tests =
     [ createTest<int>
 
       if Utils.isFloat64Available context.ClDevice then
-        createTest<float>
+          createTest<float>
 
       createTest<float32>
       createTest<bool> ]

tests/GraphBLAS-sharp.Tests/Backend/Common/ClArray/Set.fs

@@ -11,9 +11,11 @@ let context = Context.defaultContext.ClContext
 
 let processor = Context.defaultContext.Queue
 
-let config = { Utils.defaultConfig with arbitrary = [typeof<Generators.ClArray.Set>]}
+let config =
+    { Utils.defaultConfig with
+          arbitrary = [ typeof<Generators.ClArray.Set> ] }
 
-let makeTest<'a when 'a : equality> testFun (array: 'a [], position, value: 'a) =
+let makeTest<'a when 'a: equality> testFun (array: 'a [], position, value: 'a) =
 
     if array.Length > 0 then
 
@@ -27,7 +29,7 @@ let makeTest<'a when 'a : equality> testFun (array: 'a [], position, value: 'a)
         "Results must be the same"
         |> Utils.compareArrays (=) actual array
 
-let createTest<'a when 'a : equality> =
+let createTest<'a when 'a: equality> =
     ClArray.set context Utils.defaultWorkGroupSize
     |> makeTest<'a>
     |> testPropertyWithConfig config $"test on %A{typeof<'a>}"
@@ -36,9 +38,8 @@ let tests =
     [ createTest<int>
 
       if Utils.isFloat64Available context.ClDevice then
-        createTest<float>
+          createTest<float>
 
       createTest<float32>
       createTest<bool> ]
     |> testList "Set"
-

tests/GraphBLAS-sharp.Tests/Generators.fs

@@ -37,7 +37,7 @@ module Generators =
 
     let genericSparseGenerator zero valuesGen handler =
         let maxSparsity = 100
-        let sparsityGen = Gen.choose (1, 10)
+        let sparsityGen = Gen.choose (1, maxSparsity)
 
         let genWithSparsity sparseValuesGenProvider =
             gen {

tests/GraphBLAS-sharp.Tests/GraphBLAS-sharp.Tests.fsproj

@@ -62,7 +62,7 @@
         <Compile Include="Backend/Vector/SpMV.fs" />
         <Compile Include="Backend/Vector/ZeroCreate.fs" />
         <Compile Include="Backend/Vector/Merge.fs" />
-        <Compile Include="Host/Matrix/FromaArray2D.fs" />
+        <Compile Include="Host/Matrix/FromArray2D.fs" />
         <Compile Include="Host/Matrix/Convert.fs" />
         <Compile Include="Host/IO/MtxReader.fs" />
         <Content Include="Host/IO/Dataset/testMatrix.mtx" />