anchor.diff:      procedure WillRaiseAny;
       [Test]
       procedure WillRaiseAny_NoExecption;
  +    [Test]
  +    procedure WillNotRaise_With_ExactClass_Positive;
  +    [Test]
  +    procedure WillNotRaise_With_ExactClass_Negative;
  +    [Test]
  +    procedure WillNotRaise_With_DescendingClass_Positive;
  +    [Test]
  +    procedure WillNotRaise_With_DescendingClass_Negative;
  +
  +
   
   
   
  
positive.code:     end, ETestPass, EXPECTED_EXCEPTION_MSG);
  end;
  
  
  procedure TTestsAssert.WillRaiseAny;
  begin
  
negative.code:   {$M+}
    [TestFixture]
    TTestsAssert = class
    private
      procedure WillNotRaise_With_NonDescendingClass;
    published
      [Test]
      procedure Pass_Throws_ETestPass_Exception;
  