Vector.create tests

Author: kirillgarbar

…sharp.Tests/Backend/Vector/ZeroCreate.fs …LAS-sharp.Tests/Backend/Vector/Create.fstests/GraphBLAS-sharp.Tests/Backend/Vector/ZeroCreate.fs renamed to tests/GraphBLAS-sharp.Tests/Backend/Vector/Create.fs tests/GraphBLAS-sharp.Tests/Backend/Vector/ZeroCreate.fs renamed to tests/GraphBLAS-sharp.Tests/Backend/Vector/Create.fs

@@ -35,19 +35,23 @@ let correctnessGenericTest<'a when 'a: struct and 'a: equality>
     (vectorSize: int)
     =
 
-    let vectorSize = abs vectorSize
+    try
+        let vectorSize = abs vectorSize
 
-    if vectorSize > 0 then
-        let q = case.TestContext.Queue
+        if vectorSize > 0 then
+            let q = case.TestContext.Queue
 
-        let clVector =
-            zeroCreate q HostInterop vectorSize case.Format
+            let clVector =
+                zeroCreate q HostInterop vectorSize case.Format
 
-        let hostVector = clVector.ToHost q
+            let hostVector = clVector.ToHost q
 
-        clVector.Dispose q
+            clVector.Dispose q
 
-        checkResult vectorSize hostVector
+            checkResult vectorSize hostVector
+    with
+    | ex when ex.Message = "Attempting to create full sparse vector" -> ()
+    | ex -> raise ex
 
 let createTest<'a> case =
     let getCorrectnessTestName dataType =

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

@@ -63,7 +63,7 @@
         <Compile Include="Backend/Vector/OfList.fs" />
         <Compile Include="Backend/Vector/Reduce.fs" />
         <Compile Include="Backend/Vector/SpMV.fs" />
-        <Compile Include="Backend/Vector/ZeroCreate.fs" />
+        <Compile Include="Backend/Vector/Create.fs" />
         <Compile Include="Backend/Vector/Merge.fs" />
         <Compile Include="Backend/Vector/SpMSpV.fs" />
         <Compile Include="Backend/Vector/Map.fs" />