anchor.diff:  
   unit DUnitX.Tests.Assert;
   
  -
   interface
   
   uses
     DUnitX.TestFramework;
  -
   
   type
     {+M}
     [TestFixture]
     TTestsAssert = class
  -  private
     published
       [Test]
       procedure Pass_Throws_ETestPass_Exception;
  
positive.code:     end, Exception);
  end;
  
  procedure TTestsAssert.AreEqual_T_Throws_ETestFailure_When_Classes_Are_NotEqual;
  var
    mock : IInterface;
    mock2 : IInterface;
  
negative.code:     end, ETestWarning);
  end;
  
  procedure TTestsAssert.AreEqualMemory_Throws_ETestFailure_When_Pointers_Are_NotEqual;
  begin
    Assert.WillNotRaise(
      procedure
      begin
        Assert.AreEqualMemory(, @mock, SizeOf(mock));
      end, ETestFailure);
  end;
  
  procedure TTestsAssert.AreEqualMemory_Throws_No_Exception_When_Pointers_Are_Equal;
  var
    mock : IInterface;
  begin
    mock := TInterfacedObject.Create();
  
    Assert.WillNotRaise(
      procedure
      begin
        Assert.AreEqualMemory(@mock, @mock, SizeOf(mock));
      end, ETestFailure);
  end;
  
  procedure TTestsAssert.AreEqual_Extended_Throws_ETestFailure_When_Values_Are_NotEqual;
  const
    ACTUAL_EXTENDED = 1.19E20;
  