anchor.diff:  var
     VeryLongShake_256: IHash;
   begin
  -  VeryLongShake_256 := THashFactory.TCrypto.CreateShake_256(8000);
  +  VeryLongShake_256 := THashFactory.TXOF.CreateShake_256(8000);
     FActualString := VeryLongShake_256.ComputeString(FEmptyData, TEncoding.UTF8)
       .ToString();
     FExpectedString := FVeryLongShakeOfEmptyString;
  
positive.code: var
    VeryLongShake_128: IHash;
  begin
    VeryLongShake_128 := THashFactory.TCrypto.CreateShake_128(8000);
    FActualString := VeryLongShake_128.ComputeString(FEmptyData, TEncoding.UTF8)
      .ToString();
    FExpectedString := FVeryLongShakeOfEmptyString;
  
negative.code: procedure TTestShake_256.TestIncrementalHash;
  begin
    FExpectedString := FExpectedHashOfDefaultData;
    FHash := THashFactory.TXOF.CreateShake_256(512);
  
    FHash.Initialize();
    FHash.TransformString(System.Copy(FDefaultData, 1, 3), TEncoding.UTF8);
  