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