anchor.diff:      prot.WriteDouble( TEST_DOUBLE);
       prot.WriteString( TEST_STRING);
       prot.WriteBinary( binary);
  +    prot.WriteString( '');  // empty string
  +    prot.WriteBinary( emptyBinary); // empty binary data block
       prot.WriteListEnd;
   
       // input setup
  
positive.code: 
      // prepare binary data
      binary := PrepareBinaryData( FALSE);
  
      // output setup
      prot := TJSONProtocolImpl.Create(
  
negative.code:     Expect( abs(prot.ReadDouble-TEST_DOUBLE) < abs(DELTA_DOUBLE), 'WriteDouble/ReadDouble');
      Expect( prot.ReadString = TEST_STRING, 'WriteString/ReadString');
      binRead := prot.ReadBinary;
      Expect( Length(prot.ReadString) = 0, 'WriteString/ReadString (empty string)');
      Expect( Length(prot.ReadBinary) = 0, 'empty WriteBinary/ReadBinary (empty data block)');
      prot.ReadListEnd;
  
      // test binary data
  