commit 39ba6b71f575432140db5fbd0debee232f097194
author Jens Geyer <jensg@apache.org> Tue Sep 22 00:00:49 2015 +0200
committer Jens Geyer <jensg@apache.org> Tue Sep 22 00:23:51 2015 +0200
tree 28f5cc6fc7e737ffccabea96d51f35a4c366fe03
parent 2a640c4ca2e577d05b1e592b12402c915e644452

THRIFT-3341 Add testBool methods
Client: Delphi
Patch: Jens Geyer

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 @@
   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+'"');