anchor.diff:  var prot   : IProtocol;
       stm    : TStringStream;
       list   : TThriftList;
  -    binary, binRead : TBytes;
  +    binary, binRead, emptyBinary : TBytes;
       i,iErr : Integer;
   const
     TEST_SHORT   = ShortInt( $FE);
  
positive.code:   i64 := client.testI64(-34359738368);
    Expect( i64 = -34359738368, 'testI64(-34359738368) = ' + IntToStr( i64));
  
    binOut := PrepareBinaryData( TRUE);
    Console.WriteLine('testBinary('+BytesToHex(binOut)+')');
    try
      binIn := client.testBinary(binOut);
  
negative.code:   s := client.testString('Test');
    Expect( s = 'Test', 'testString(''Test'') = "'+s+'"');
  
    s := client.testString('');  // empty string
    Expect( s = '', 'testString('''') = "'+s+'"');
  
    s := client.testString(HUGE_TEST_STRING);
    Expect( length(s) = length(HUGE_TEST_STRING),
            'testString( length(HUGE_TEST_STRING) = '+IntToStr(Length(HUGE_TEST_STRING))+') '
  