anchor.diff:    end;
   end;
   
  -procedure TBase64StreamTest.TestSaveStream;
  +procedure TBase64StreamEncodedTest.TestSaveStream;
   const
     TXT: string = 'ABCDEFG#13#10IJL';
   var
  
positive.code: 
  implementation
  
  { TBase64HashTest }
  
  procedure TBase64HashTest.TestHashByBase64encodePage;
  const
    VALUE: string = 'https://www.base64encode.org/';
    VALUE_HASH: string = 'aHR0cHM6Ly93d3cuYmFzZTY0ZW5jb2RlLm9yZy8=';
  begin
    CheckEquals(
      VALUE_HASH,
      TBase64Hash.New(VALUE).AsString
    );
  end;
  
  { TBase64StreamTest }
  
  procedure TBase64StreamTest.TestAsString;
  const
    TXT: string = 'AEIOU123456qwert';
  var
  
negative.code: begin
    Buf := TMemoryStream.Create;
    try
      TBase64StreamEncoded.New(TDataStream.New(TXT)).Save(Buf);
      SetLength(S, Buf.Size);
      Buf.Position := 0;
      Buf.ReadBuffer(S[1], Buf.Size);
      CheckEquals(TBase64Encoder.New(TXT).AsString, S);
    finally
      Buf.Free;
    end;
  end;
  
  procedure TBase64StreamEncodedTest.TestSaveStrings;
  const
    TXT: string = 'ABCDEFG#13#10IJLMNO-PQRS';
  var
  