Add tests for serialized isend/irecv

JuliaParallel · Apr 28, 2016 · d828683 · d828683
1 parent 5d24cc9
commit d828683
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/test/test_sendrecv.jl b/test/test_sendrecv.jl
@@ -106,4 +106,18 @@ rreq = nothing
 sreq = nothing
 gc()
 
+root = 0
+g = x -> x^2 + 2x - 1
+if MPI.Comm_rank(comm) == root + 1
+ done, f, stat = MPI.irecv( root, root+32, comm )
+ if done
+ @test f(3) == g(3)
+ @test f(5) == g(5)
+ @test f(7) == g(7)
+ end
+elseif MPI.Comm_rank(comm) == root
+ f = g
+ sreq = MPI.isend(f, dst, rank+32, comm)
+end
+
 MPI.Finalize()