Merge pull request #135 from JuliaParallel/ksh/test

Two little tests

Author: kshyatt

src/win_mpiconstants.jl

@@ -77,8 +77,12 @@ const MPI_PROBE = (:MPI_PROBE, "msmpi.dll")
 const MPI_COMM_FREE = (:MPI_COMM_FREE, "msmpi.dll")
 const MPI_GET_COUNT = (:MPI_GET_COUNT, "msmpi.dll")
 const MPI_TESTSOME = (:MPI_TESTSOME, "msmpi.dll")
+const MPI_TESTANY = (:MPI_TESTANY, "msmpi.dll")
+const MPI_TESTALL = (:MPI_TESTALL, "msmpi.dll")
 const MPI_TYPE_CREATE_STRUCT = (:MPI_TYPE_CREATE_STRUCT, "msmpi.dll")
 const MPI_TYPE_COMMIT = (:MPI_TYPE_COMMIT, "msmpi.dll")
 const MPI_WAIT = (:MPI_WAIT, "msmpi.dll")
+const MPI_WAITSOME = (:MPI_WAITSOME, "msmpi.dll")
+const MPI_WAITANY = (:MPI_WAITANY, "msmpi.dll")
 
 bitstype 32 CComm

test/test_datatype.jl

@@ -18,6 +18,12 @@ end
 
 # test simple type 
 
+type NotABits
+  a::Any
+end
+
+@test_throws ArgumentError MPI.type_create(NotABits)
+
 immutable Boundary
   c::UInt16  # force some padding to be inserted
   a::Int

test/test_sendrecv.jl

@@ -30,6 +30,10 @@ stats = MPI.Waitall!([sreq, rreq])
 @test MPI.Get_tag(stats[2]) == src+32
 @test isapprox(norm(recv_mesg-recv_mesg_expected), 0.0)
 
+(done,stats) = MPI.Testall!([sreq, rreq])
+@test done
+
+
 rreq = nothing
 sreq = nothing
 gc()