anchor.diff:    James.Testing.Clss;
   
   type
  -  TBase64HashTest = class(TTestCase)
  +  TBase64EncoderTest = class(TTestCase)
     published
       procedure TestHashByBase64encodePage;
     end;
   
  -  TBase64StreamTest = class(TTestCase)
  +  TBase64StreamEncodedTest = class(TTestCase)
     published
       procedure TestAsString;
       procedure TestSaveStream;
  
positive.code:   end;
  end;
  
  procedure TBase64StreamTest.TestSaveStream;
  const
    TXT: string = 'ABCDEFG#13#10IJL';
  var
  
negative.code: 
  implementation
  
  { TBase64EncoderTest }
  
  procedure TBase64EncoderTest.TestHashByBase64encodePage;
  const
    VALUE: string = 'https://www.base64encode.org/';
    VALUE_HASH: string = 'aHR0cHM6Ly93d3cuYmFzZTY0ZW5jb2RlLm9yZy8=';
  begin
    CheckEquals(
      VALUE_HASH,
      TBase64Encoder.New(VALUE).AsString
    );
  end;
  
  { TBase64StreamEncodedTest }
  
  procedure TBase64StreamEncodedTest.TestAsString;
  const
    TXT: string = 'AEIOU123456qwert';
  var
  