fix: blit, choose2 tests exception

Author: artemiipatov

paket.lock

@@ -968,7 +968,7 @@ NUGET
       System.Security.Principal.Windows (>= 5.0) - restriction: || (&& (>= monoandroid) (< netstandard1.3)) (&& (< monoandroid) (>= netcoreapp2.0)) (>= monotouch) (&& (< net46) (< netcoreapp2.0) (>= netstandard2.0)) (>= net461) (>= netcoreapp2.1) (>= uap10.1) (>= xamarinios) (>= xamarinmac) (>= xamarintvos) (>= xamarinwatchos)
     Microsoft.Win32.SystemEvents (7.0) - restriction: >= net6.0
     Mono.Posix.NETStandard (1.0) - restriction: >= netstandard2.0
-    MSBuild.StructuredLogger (2.1.820) - restriction: >= netstandard2.0
+    MSBuild.StructuredLogger (2.1.844) - restriction: >= netstandard2.0
       Microsoft.Build.Framework (>= 17.5) - restriction: >= netstandard2.0
       Microsoft.Build.Utilities.Core (>= 17.5) - restriction: >= netstandard2.0
     Newtonsoft.Json (13.0.3) - restriction: >= netstandard2.0
@@ -1221,7 +1221,7 @@ NUGET
       System.Security.Principal.Windows (>= 5.0) - restriction: || (&& (>= monoandroid) (< netstandard1.3)) (&& (< monoandroid) (>= netcoreapp2.0)) (>= monotouch) (&& (< net46) (< netcoreapp2.0) (>= netstandard2.0)) (>= net461) (>= netcoreapp2.1) (>= uap10.1) (>= xamarinios) (>= xamarinmac) (>= xamarintvos) (>= xamarinwatchos)
     Microsoft.Win32.SystemEvents (7.0) - restriction: >= net6.0
     Mono.Posix.NETStandard (1.0) - restriction: >= netstandard2.0
-    MSBuild.StructuredLogger (2.1.820) - restriction: >= netstandard2.0
+    MSBuild.StructuredLogger (2.1.844) - restriction: >= netstandard2.0
       Microsoft.Build.Framework (>= 17.5) - restriction: >= netstandard2.0
       Microsoft.Build.Utilities.Core (>= 17.5) - restriction: >= netstandard2.0
     Newtonsoft.Json (13.0.3) - restriction: >= netstandard2.0

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

@@ -65,18 +65,19 @@ let makeTest2 testContext isEqual opMap testFun (firstArray: 'a [], secondArray:
             Array.map2 opMap firstArray secondArray
             |> Array.choose id
 
-        let clFirstArray = context.CreateClArray firstArray
-        let clSecondArray = context.CreateClArray secondArray
+        if expected.Length > 0 then
+            let clFirstArray = context.CreateClArray firstArray
+            let clSecondArray = context.CreateClArray secondArray
 
-        let (clActual: ClArray<_>) =
-            testFun processor HostInterop clFirstArray clSecondArray
+            let (clActual: ClArray<_>) =
+                testFun processor HostInterop clFirstArray clSecondArray
 
-        let actual = clActual.ToHostAndFree processor
-        clFirstArray.Free processor
-        clSecondArray.Free processor
+            let actual = clActual.ToHostAndFree processor
+            clFirstArray.Free processor
+            clSecondArray.Free processor
 
-        "Results must be the same"
-        |> Utils.compareArrays isEqual actual expected
+            "Results must be the same"
+            |> Utils.compareArrays isEqual actual expected
 
 let createTest2 testsContext (isEqual: 'a -> 'a -> bool) (opMapQ, opMap) testFun =
     testFun opMapQ testsContext.ClContext Utils.defaultWorkGroupSize

tests/GraphBLAS-sharp.Tests/Backend/Matrix/SubRows.fs

@@ -25,13 +25,6 @@ let makeTest isEqual zero testFun (array: 'a [,], sourceRow, count) =
 
     if matrix.NNZ > 0 then
 
-        let clMatrix = matrix.ToDevice context
-
-        let clActual: ClMatrix.COO<'a> =
-            testFun processor HostInterop sourceRow count clMatrix
-
-        let actual = clActual.ToHostAndFree processor
-
         let expected =
             array
             |> Array2D.mapi (fun rowIndex columnIndex value -> (value, rowIndex, columnIndex))
@@ -47,7 +40,15 @@ let makeTest isEqual zero testFun (array: 'a [,], sourceRow, count) =
                   Columns = columns
                   Values = values }
 
-        Utils.compareCOOMatrix isEqual actual expected
+        if expected.NNZ > 0 then
+            let clMatrix = matrix.ToDevice context
+
+            let clActual: ClMatrix.COO<'a> =
+                testFun processor HostInterop sourceRow count clMatrix
+
+            let actual = clActual.ToHostAndFree processor
+
+            Utils.compareCOOMatrix isEqual actual expected
 
 let createTest isEqual (zero: 'a) =
     CSR.Matrix.subRows context Utils.defaultWorkGroupSize