diff options
author | iproctor <dev-null@apache.org> | 2008-04-10 00:31:55 +0000 |
---|---|---|
committer | iproctor <dev-null@apache.org> | 2008-04-10 00:31:55 +0000 |
commit | 8361bf05659f9d1e458d76f8ee0657ea5e009b6a (patch) | |
tree | 6c2387c2d329bef1a8694be964accdd59b5da207 /test/ocaml | |
parent | b54deb1ca538b2f244225801408637aa8921d5db (diff) | |
download | thrift-8361bf05659f9d1e458d76f8ee0657ea5e009b6a.tar.gz |
ocaml and haskell thrift clients now calling readMessageEnd
Summary: I neglected to make the call to readMessageEnd if the client read an app exception in the haskell and ocaml code. Fixed now. The test cases for both now also compile with the new ThriftTest.thrift (though haskell's is still not doing anything but echoing the args)
Reviewed By: dreiss
Test Plan: Ran test code. This bug would actually never show up because there's only tbinaryprotocol implemented for these languages and that does nothing on a readMessageEnd.
Revert: OK
DiffCamp Revision: 11377
git-svn-id: https://svn.apache.org/repos/asf/incubator/thrift/trunk@665651 13f79535-47bb-0310-9956-ffa450edef68
Diffstat (limited to 'test/ocaml')
-rw-r--r-- | test/ocaml/server/TestServer.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/test/ocaml/server/TestServer.ml b/test/ocaml/server/TestServer.ml index 3768f5dc9..67157383d 100644 --- a/test/ocaml/server/TestServer.ml +++ b/test/ocaml/server/TestServer.ml @@ -97,6 +97,8 @@ object (self) let res = new xtruct in res#set_string_thing (sod a1); res + method testAsync i = + Unix.sleep (sod i) end;; let h = new test_handler in |