valitydev/thrift
14
0
Fork 0
mirror of https://github.com/valitydev/thrift.git synced 2024-11-07 02:45:22 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

THRIFT-1202 Malformed JSON for map<string,type> services parameters

Browse Source 
fix broken build (add testcase to haskell test suite)


git-svn-id: https://svn.apache.org/repos/asf/thrift/trunk@1137858 13f79535-47bb-0310-9956-ffa450edef68
This commit is contained in:
Roger Meier 2011-06-21 04:42:43 +00:00
parent 76bd0050ce
commit 0680a83634
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
test/hs/ThriftTest_Main.hs
View File

@ -99,6 +99,13 @@ instance Iface.ThriftTest_Iface TestHandler where
testMap _ Nothing = do
error $ "Unsupported testMap form"
testStringMap _ (Just x) = do
ThriftTestUtils.serverLog $ show x
return x
testStringMap _ Nothing = do
error $ "Unsupported testMap form"
testSet _ (Just x) = do
ThriftTestUtils.serverLog $ show x
return x
@ -190,15 +197,18 @@ client addr = do
v10 <- Client.testMap ps (Map.fromList [(1,1),(2,2),(3,3)])
ThriftTestUtils.clientLog $ show v10
v11 <- Client.testList ps [1,2,3,4,5]
v11 <- Client.testStringMap ps (Map.fromList [("a","123"),("a b","with spaces "),("same","same"),("0","numeric key")])
ThriftTestUtils.clientLog $ show v11
v12 <- Client.testSet ps (Set.fromList [1,2,3,4,5])
v12 <- Client.testList ps [1,2,3,4,5]
ThriftTestUtils.clientLog $ show v12
v13 <- Client.testStruct ps (Types.Xtruct (Just "hi") (Just 4) (Just 5) Nothing)
v13 <- Client.testSet ps (Set.fromList [1,2,3,4,5])
ThriftTestUtils.clientLog $ show v13
v14 <- Client.testStruct ps (Types.Xtruct (Just "hi") (Just 4) (Just 5) Nothing)
ThriftTestUtils.clientLog $ show v14
(testException ps "bad") `Control.Exception.catch` testExceptionHandler
(testMultiException ps "ok") `Control.Exception.catch` testMultiExceptionHandler1