Repository: thrift Updated Branches: refs/heads/master 2a640c4ca -> fa2daef14
THRIFT-3341 Add testBool methods Client: Delphi Patch: Jens Geyer Project: http://git-wip-us.apache.org/repos/asf/thrift/repo Commit: http://git-wip-us.apache.org/repos/asf/thrift/commit/39ba6b71 Tree: http://git-wip-us.apache.org/repos/asf/thrift/tree/39ba6b71 Diff: http://git-wip-us.apache.org/repos/asf/thrift/diff/39ba6b71 Branch: refs/heads/master Commit: 39ba6b71f575432140db5fbd0debee232f097194 Parents: 2a640c4 Author: Jens Geyer <[email protected]> Authored: Tue Sep 22 00:00:49 2015 +0200 Committer: Jens Geyer <[email protected]> Committed: Tue Sep 22 00:23:51 2015 +0200 ---------------------------------------------------------------------- lib/delphi/test/TestClient.pas | 5 +++++ lib/delphi/test/TestServer.pas | 7 +++++++ 2 files changed, 12 insertions(+) ---------------------------------------------------------------------- http://git-wip-us.apache.org/repos/asf/thrift/blob/39ba6b71/lib/delphi/test/TestClient.pas ---------------------------------------------------------------------- diff --git a/lib/delphi/test/TestClient.pas b/lib/delphi/test/TestClient.pas index 08b3965..5f375ef 100644 --- a/lib/delphi/test/TestClient.pas +++ b/lib/delphi/test/TestClient.pas @@ -510,6 +510,11 @@ begin client.testVoid(); Expect( TRUE, 'testVoid()'); // success := no exception + s := BoolToString( client.testBool(TRUE)); + Expect( s = BoolToString(TRUE), 'testBool(TRUE) = '+s); + s := BoolToString( client.testBool(FALSE)); + Expect( s = BoolToString(FALSE), 'testBool(FALSE) = '+s); + s := client.testString('Test'); Expect( s = 'Test', 'testString(''Test'') = "'+s+'"'); http://git-wip-us.apache.org/repos/asf/thrift/blob/39ba6b71/lib/delphi/test/TestServer.pas ---------------------------------------------------------------------- diff --git a/lib/delphi/test/TestServer.pas b/lib/delphi/test/TestServer.pas index 4f599ea..018282c 100644 --- a/lib/delphi/test/TestServer.pas +++ b/lib/delphi/test/TestServer.pas @@ -58,6 +58,7 @@ type FServer : IServer; protected procedure testVoid(); + function testBool(thing: Boolean): Boolean; function testString(const thing: string): string; function testByte(thing: ShortInt): ShortInt; function testI32(thing: Integer): Integer; @@ -394,6 +395,12 @@ begin end; end; +function TTestServer.TTestHandlerImpl.testBool(thing: Boolean): Boolean; +begin + Console.WriteLine('testBool(' + BoolToStr(thing,true) + ')'); + Result := thing; +end; + function TTestServer.TTestHandlerImpl.testString( const thing: string): string; begin Console.WriteLine('teststring("' + thing + '")');
