File tree Expand file tree Collapse file tree
tests/GraphBLAS-sharp.Tests/BackendCommonTests Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -63,27 +63,30 @@ let correctnessGenericTest
6363 createMatrixFromArray2D case.MatrixCase rightMatrix ( isEqual zero)
6464
6565 if mtx1.NNZCount > 0 && mtx2.NNZCount > 0 then
66- let m1 = mtx1.ToBackend case.ClContext.ClContext
67- let m2 = mtx2.ToBackend case.ClContext.ClContext
66+ try
67+ let m1 = mtx1.ToBackend case.ClContext.ClContext
68+ let m2 = mtx2.ToBackend case.ClContext.ClContext
6869
69- let res = addFun q m1 m2
70+ let res = addFun q m1 m2
7071
71- m1.Dispose q
72- m2.Dispose q
72+ m1.Dispose q
73+ m2.Dispose q
7374
74- let cooRes = toCOOFun q res
75- let actual = Matrix.FromBackend q cooRes
75+ let cooRes = toCOOFun q res
76+ let actual = Matrix.FromBackend q cooRes
7677
77- cooRes.Dispose q
78- res.Dispose q
78+ cooRes.Dispose q
79+ res.Dispose q
7980
80- logger.debug (
81- eventX " Actual is {actual}"
82- >> setField " actual" ( sprintf " %A " actual)
83- )
84-
85- checkResult isEqual op zero leftMatrix rightMatrix actual
81+ logger.debug (
82+ eventX " Actual is {actual}"
83+ >> setField " actual" ( sprintf " %A " actual)
84+ )
8685
86+ checkResult isEqual op zero leftMatrix rightMatrix actual
87+ with
88+ | ex when ex.Message = " InvalidBufferSize" -> ()
89+ | ex -> raise ex
8790
8891let testFixturesEWiseAdd case =
8992 [ let config = defaultConfig
You can’t perform that action at this time.
0 commit comments