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/hs | |
| 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/hs')
| -rw-r--r-- | test/hs/Server.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/test/hs/Server.hs b/test/hs/Server.hs index ee4fd206e..511d01e47 100644 --- a/test/hs/Server.hs +++ b/test/hs/Server.hs @@ -28,6 +28,7 @@ instance ThriftTest_Iface TestHandler where testMulti a a1 a2 a3 a4 a5 a6 = return (Xtruct Nothing Nothing Nothing Nothing) testException a c = throwDyn (Xception (Just 1) (Just "bya")) testMultiException a c1 c2 = return (Xtruct Nothing Nothing Nothing Nothing) + testAsync a (Just i) = do print i main = do (run_basic_server TestHandler process 9090) `catchDyn` (\(TransportExn s t) -> print s) |