anchor.diff:      Buf.WriteBuffer(TXT[1], Length(TXT) * SizeOf(Char));
       Ss.Text := TXT;
       CheckEquals(
  -      TBase64Hash.New(TXT).AsString,
  -      TBase64Stream.New(TDataStream.New(Buf)).AsString,
  +      TBase64Encoder.New(TXT).AsString,
  +      TBase64StreamEncoded.New(TDataStream.New(Buf)).AsString,
         'Test Stream'
       );
       CheckEquals(
  -      TBase64Hash.New(TXT).AsString,
  -      TBase64Stream.New(TDataStream.New(TXT)).AsString,
  +      TBase64Encoder.New(TXT).AsString,
  +      TBase64StreamEncoded.New(TDataStream.New(TXT)).AsString,
         'Test String'
       );
       CheckEquals(
  -      TBase64Hash.New(TXT+#13#10).AsString,
  -      TBase64Stream.New(TDataStream.New(Ss)).AsString,
  +      TBase64Encoder.New(TXT+#13#10).AsString,
  +      TBase64StreamEncoded.New(TDataStream.New(Ss)).AsString,
         'Test Strings'
       );
     finally
  
positive.code:   end;
  end;
  
  procedure TBase64StreamTest.TestSaveStream;
  const
    TXT: string = 'ABCDEFG#13#10IJL';
  var
  
negative.code:   James.Testing.Clss;
  
  type
    TBase64EncoderTest = class(TTestCase)
    published
      procedure TestHashByBase64encodePage;
    end;
  
    TBase64StreamEncodedTest = class(TTestCase)
    published
      procedure TestAsString;
      procedure TestSaveStream;
  