Merge pull request #64 from IgorErin/floattests

Float tests

Author: gsvgit

benchmarks/GraphBLAS-sharp.Benchmarks/Helpers.fs

@@ -14,6 +14,7 @@ open BenchmarkDotNet.Jobs
 open GraphBLAS.FSharp.Tests
 open FsCheck
 open Expecto
+open GraphBLAS.FSharp.Test
 
 type CommonConfig() =
     inherit ManualConfig()
@@ -258,7 +259,7 @@ module Utils =
 module VectorGenerator =
     let private pairOfVectorsOfEqualSize (valuesGenerator: Gen<'a>) createVector =
         gen {
-            let! length = Gen.sized <| fun size -> Gen.constant size
+            let! length = Gen.sized <| Gen.constant
 
             let! leftArray = Gen.arrayOfLength length valuesGenerator
 

docsTool/templates/nav.fs

@@ -48,17 +48,16 @@ let navItemIconOnly link ariaLabel inner =
     ]
 
 let dropDownNavMenu text items =
-            li [ Class "nav-item dropdown" ][
-                a [
-                    Id (sprintf "navbarDropdown-%s"  text)
-                    Href "#"
-                    DataToggle "dropdown"
-                    AriaHasPopup true
-                    AriaExpanded false
-                    Class "nav-link dropdown-toggle" ]
-                    [ normalizeStr text ]
-                ul [    HTMLAttr.Custom ("aria-labelledby", "dropdownMenu1")
-                        Class "dropdown-menu border-0 shadow" ] items ]
+    li [ Class "nav-item dropdown" ] [
+        a [ Id (sprintf "navbarDropdown-%s"  text)
+            Href "#"
+            DataToggle "dropdown"
+            AriaHasPopup true
+            AriaExpanded false
+            Class "nav-link dropdown-toggle" ]
+            [ normalizeStr text ]
+        ul [ HTMLAttr.Custom ("aria-labelledby", "dropdownMenu1")
+             Class "dropdown-menu border-0 shadow" ] items ]
 
 let dropDownNavItem text link =
     li [

paket.lock

@@ -1,7 +1,5 @@
 namespace GraphBLAS.FSharp.Backend.Common
 
-open Brahma.FSharp
-
 module internal Utils =
     let defaultWorkGroupSize = 32
 

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

@@ -51,5 +51,3 @@ module Common =
             valuesScatter processor positions allValues resultValues
 
             resultRows, resultColumns, resultValues, resultLength
-
-

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

@@ -2,6 +2,7 @@ namespace GraphBLAS.FSharp.Backend.Predefined
 
 open Brahma.FSharp
 open GraphBLAS.FSharp.Backend.Common
+
 module internal PrefixSum =
     let standardExcludeInplace (clContext: ClContext) workGroupSize =
 

src/GraphBLAS-sharp.Backend/Predefined/PrefixSum.fs

@@ -23,4 +23,3 @@ module Convert =
             match rightItem with
             | Some _ -> (%op) leftItem None
             | None -> (%op) leftItem (Some value) @>
-

src/GraphBLAS-sharp.Backend/Quotes/Convert.fs

@@ -35,4 +35,3 @@ module SubSum =
         sumGeneral<'a> <| sequentialAccess<'a> opAdd
 
     let treeSum<'a> opAdd = sumGeneral<'a> <| treeAccess<'a> opAdd
-

src/GraphBLAS-sharp.Backend/Quotes/SubSum.fs

@@ -22,4 +22,3 @@ module ClVectorExtensions =
                      Values = values
                      Size = this.Size }
             | ClVector.Dense vector -> Vector.Dense <| vector.ToHost q
-

src/GraphBLAS-sharp/Objects/VectorExtensions.fs

@@ -16,7 +16,7 @@ let testFixtures (testContext: TestContext) =
     [ let config = Utils.undirectedAlgoConfig
       let context = testContext.ClContext
       let queue = testContext.Queue
-      let workGroupSize = 32
+      let workGroupSize = Utils.defaultWorkGroupSize
 
       let testName =
           sprintf "Test on %A" testContext.ClContext
@@ -40,7 +40,7 @@ let testFixtures (testContext: TestContext) =
                   |> Utils.createArrayFromDictionary (Array2D.length1 matrix) 0
 
               let matrixHost =
-                  Utils.createMatrixFromArray2D CSR matrix (fun x -> x = 0)
+                  Utils.createMatrixFromArray2D CSR matrix ((=) 0)
 
               let matrix = matrixHost.ToDevice context