anchor.diff:    TCShakeAlgorithmTestCase = class abstract(TXofAlgorithmTestCase)
     strict private
     var
  -    FXofNAndSNilInstance, FXofInstanceTestVector: IXOF;
  +    FXofInstanceShake, FXofInstanceTestVector: IXOF;
       FXofOfZeroToOneHundredAndNinetyNineInHex: String;
   
       function GetXofOfZeroToOneHundredAndNinetyNineInHex: String; inline;
  
positive.code: 
  procedure TCShakeAlgorithmTestCase.SetXofInstanceShake(const AValue: IXOF);
  begin
    FXofNAndSNilInstance := AValue;
  end;
  
  procedure TCShakeAlgorithmTestCase.SetXofOfZeroToOneHundredAndNinetyNineInHex
  
negative.code: 
  function TCShakeAlgorithmTestCase.GetXofInstanceShake: IXOF;
  begin
    Result := FXofInstanceShake;
  end;
  
  function TCShakeAlgorithmTestCase.
  