anchor.diff:    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))+') '
  
positive.code: 
      // prepare binary data
      binary := PrepareBinaryData( FALSE);
  
      // output setup
      prot := TJSONProtocolImpl.Create(
  
negative.code:   i64 := client.testI64(-34359738368);
    Expect( i64 = -34359738368, 'testI64(-34359738368) = ' + IntToStr( i64));
  
    // random binary
    binOut := PrepareBinaryData( TRUE);
    Console.WriteLine('testBinary('+BytesToHex(binOut)+')');
    try
      binIn := client.testBinary(binOut);
      Expect( Length(binOut) = Length(binIn), 'testBinary(): length '+IntToStr(Length(binOut))+' = '+IntToStr(Length(binIn)));
      i32 := Min( Length(binOut), Length(binIn));
      Expect( CompareMem( binOut, binIn, i32), 'testBinary('+BytesToHex(binOut)+') = '+BytesToHex(binIn));
    except
      on e:TApplicationException do Console.WriteLine('testBinary(): '+e.Message);
      on e:Exception do Expect( FALSE, 'testBinary(): Unexpected exception "'+e.ClassName+'": '+e.Message);
    end;
  
    // empty binary
    SetLength( binOut, 0);
    Console.WriteLine('testBinary('+BytesToHex(binOut)+')');
    try
      binIn := client.testBinary(binOut);
  