add tests

Author: JaredCrean2

test/test_wait.jl

@@ -0,0 +1,46 @@
+# tests for the various kinds of waits
+using Base.Test
+using MPI
+
+MPI.Init()
+myrank = MPI.Comm_rank(MPI.COMM_WORLD)
+commsize = MPI.Comm_rank(MPI.COMM_WORLD)
+
+nsends = 2
+send_arr = Array(Array{Int, 1}, nsends)
+recv_arr = Array(Array{Int, 1}, nsends)
+
+for i=1:nsends
+    send_arr[i] = [i]
+    recv_arr[i] = Array(Int, 1)
+end
+
+send_reqs = Array(MPI.Request, nsends)
+recv_reqs = Array(MPI.Request, nsends)
+
+# send to self
+for i=1:nsends
+    send_reqs[i] = MPI.Isend(send_arr[i], myrank, i, MPI.COMM_WORLD)
+    recv_reqs[i] = MPI.Irecv!(recv_arr[i], myrank, i, MPI.COMM_WORLD)
+end
+
+send_check = zeros(Int, nsends)
+recv_check = zeros(Int, nsends)
+for i=1:nsends
+    idx, stat = MPI.Waitany!(send_reqs)
+    send_check[idx] += 1
+    send_reqs[idx] = MPI.REQUEST_NULL
+end
+
+@test sum(send_check) == nsends
+
+for i=1:nsends
+    idx, stat = MPI.Waitany!(recv_reqs)
+    recv_check[idx] += 1
+    recv_reqs[idx] = MPI.REQUEST_NULL
+end
+
+@test sum(recv_check) == nsends
+
+MPI.Barrier(MPI.COMM_WORLD)
+MPI.Finalize()