Repository: thrift Updated Branches: refs/heads/master 624781c1c -> 28c1c19f9
THRIFT-3018 Compact protocol for Delphi, added another test case 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/d6834409 Tree: http://git-wip-us.apache.org/repos/asf/thrift/tree/d6834409 Diff: http://git-wip-us.apache.org/repos/asf/thrift/diff/d6834409 Branch: refs/heads/master Commit: d6834409b4876592b6aae036e8d6e9c6ffc814d8 Parents: 624781c Author: Jens Geyer <[email protected]> Authored: Sat Mar 7 13:16:34 2015 +0100 Committer: Jens Geyer <[email protected]> Committed: Sat Mar 7 14:24:55 2015 +0100 ---------------------------------------------------------------------- lib/delphi/src/Thrift.Protocol.Compact.pas | 20 ++++++++++++++------ 1 file changed, 14 insertions(+), 6 deletions(-) ---------------------------------------------------------------------- http://git-wip-us.apache.org/repos/asf/thrift/blob/d6834409/lib/delphi/src/Thrift.Protocol.Compact.pas ---------------------------------------------------------------------- diff --git a/lib/delphi/src/Thrift.Protocol.Compact.pas b/lib/delphi/src/Thrift.Protocol.Compact.pas index 818ef5d..61af44d 100644 --- a/lib/delphi/src/Thrift.Protocol.Compact.pas +++ b/lib/delphi/src/Thrift.Protocol.Compact.pas @@ -1035,12 +1035,20 @@ procedure TestZigZag; var i : Integer; begin // protobuf testcases - ASSERT( TCompactProtocolImpl.intToZigZag(0) = 0, 'pb #1'); - ASSERT( TCompactProtocolImpl.intToZigZag(-1) = 1, 'pb #2'); - ASSERT( TCompactProtocolImpl.intToZigZag(1) = 2, 'pb #3'); - ASSERT( TCompactProtocolImpl.intToZigZag(-2) = 3, 'pb #4'); - ASSERT( TCompactProtocolImpl.intToZigZag(+2147483647) = 4294967294, 'pb #5'); - ASSERT( TCompactProtocolImpl.intToZigZag(-2147483648) = 4294967295, 'pb #6'); + ASSERT( TCompactProtocolImpl.intToZigZag(0) = 0, 'pb #1 to ZigZag'); + ASSERT( TCompactProtocolImpl.intToZigZag(-1) = 1, 'pb #2 to ZigZag'); + ASSERT( TCompactProtocolImpl.intToZigZag(1) = 2, 'pb #3 to ZigZag'); + ASSERT( TCompactProtocolImpl.intToZigZag(-2) = 3, 'pb #4 to ZigZag'); + ASSERT( TCompactProtocolImpl.intToZigZag(+2147483647) = 4294967294, 'pb #5 to ZigZag'); + ASSERT( TCompactProtocolImpl.intToZigZag(-2147483648) = 4294967295, 'pb #6 to ZigZag'); + + // protobuf testcases + ASSERT( TCompactProtocolImpl.zigzagToInt(0) = 0, 'pb #1 from ZigZag'); + ASSERT( TCompactProtocolImpl.zigzagToInt(1) = -1, 'pb #2 from ZigZag'); + ASSERT( TCompactProtocolImpl.zigzagToInt(2) = 1, 'pb #3 from ZigZag'); + ASSERT( TCompactProtocolImpl.zigzagToInt(3) = -2, 'pb #4 from ZigZag'); + ASSERT( TCompactProtocolImpl.zigzagToInt(4294967294) = +2147483647, 'pb #5 from ZigZag'); + ASSERT( TCompactProtocolImpl.zigzagToInt(4294967295) = -2147483648, 'pb #6 from ZigZag'); // back and forth 32 Test32( 0);
