anchor.diff:      [Test]
       procedure AreEqual_TClass_Throws_ETestFailure_When_Classes_Are_NotEqual;
       [Test]
  -    procedure AreEqual_T_Throws_No_Exception_When_Classes_Are_Equal;
  -    [Test]
  -    procedure AreEqual_T_Throws_ETestFailure_When_Classes_Are_NotEqual;
  -
  -    [Test]
  -    procedure AreEqual_T_Throws_ETestFailure_When_Interfaces_Are_NotEqual_OrNil;
  -
  +    procedure AreEqual_T_Throws_No_Exception_When_Interfaces_Are_Equal;
  +    [Test]
  +    procedure AreEqual_T_Throws_ETestFailure_When_Interfaces_Are_NotEqual;
  +    [Test]
  +    procedure AreEqual_T_Throws_ETestFailure_When_Interfaces_Are_Nil;
  +    [Test]
  +    procedure AreEqual_T_Throws_No_Exception_When_Objects_Are_Equal;
  +    [Test]
  +    procedure AreEqual_T_Throws_ETestFailure_When_Objects_Are_NotEqual;
  +    [Test]
  +    procedure AreEqual_T_Throws_ETestFailure_When_Objects_Are_Nil;
  +    [Test]
  +    procedure AreEqualMemory_Throws_No_Exception_When_Pointers_Are_Equal;
  +    [Test]
  +    procedure AreEqualMemory_Throws_ETestFailure_When_Pointers_Are_NotEqual;
       [Test]
       procedure Warn_Throws_ETestWarning_Exception;
       [Test]
  
positive.code:     end, Exception);
  end;
  
  procedure TTestsAssert.AreEqual_T_Throws_ETestFailure_When_Classes_Are_NotEqual;
  var
    mock : IInterface;
    mock2 : IInterface;
  
negative.code:     begin
        Assert.AreEqual<IInterface>(mock, mock2);
      end, ETestFailure);
  end;
  
  procedure TTestsAssert.AreEqual_T_Throws_ETestFailure_When_Objects_Are_Nil;
  var
    mock : TObject;
    nilObject : TObject;
  begin
    mock := TObject.Create();
    try
      nilObject := nil;
  
      Assert.WillRaise(
        procedure
        begin
          Assert.AreEqual<TObject>(mock, nilObject);
        end, ETestFailure);
  
      Assert.WillRaise(
        procedure
        begin
          Assert.AreEqual<TObject>(nilObject, mock);
        end, ETestFailure);
    finally
      FreeAndNil(mock);
    end;
  end;
  
  procedure TTestsAssert.AreEqual_T_Throws_ETestFailure_When_Objects_Are_NotEqual;
  var
    mock : TObject;
    mock2 : TObject;
  begin
    mock := TObject.Create;
    mock2 := TObject.Create;
    try
      Assert.WillRaise(
        procedure
        begin
          Assert.AreEqual<TObject>(mock, mock2);
        end, ETestFailure);
    finally
      FreeAndNil(mock);
      FreeAndNil(mock2);
    end;
  end;
  
  procedure TTestsAssert.AreEqual_T_Throws_ETestFailure_When_Interfaces_Are_Nil;
  var
    mock : IInterface;
  begin
  