anchor.diff:  
     ITestLogger = interface
       ['{AADCA392-421C-4060-8D47-79D7CAAB0EEF}']
  -    //Called at the start of testing. The default console logger prints the DUnitX banner.
  +
  +    ///	<summary>
  +    ///	  Called at the start of testing. The default console logger prints the
  +    ///	  DUnitX banner.
  +    ///	</summary>
       procedure OnTestingStarts(const threadId : Cardinal);
   
  -    //Called before a Fixture is run.
  +
  +    ///	<summary>
  +    ///	  //Called before a Fixture is run.
  +    ///	</summary>
       procedure OnStartTestFixture(const threadId : Cardinal; const fixture : ITestFixtureInfo);
   
  -    //Called before a fixture Setup method is run.
  +    ///	<summary>
  +    ///	  //Called before a fixture Setup method is run
  +    ///	</summary>
       procedure OnSetupFixture(const threadId : Cardinal; const fixture : ITestFixtureInfo);
  -    //Called afgter a ficture setup method is run.
  +
  +    ///	<summary>
  +    ///	  Called after a fixture setup method is run.
  +    ///	</summary>
       procedure OnEndSetupFixture(const threadId : Cardinal; const fixture : ITestFixtureInfo);
   
  -    //called before a Test method is run.
  +
  +    ///	<summary>
  +    ///	  Called before a Test method is run.
  +    ///	</summary>
       procedure OnBeginTest(const threadId : Cardinal; Test: ITestInfo);
   
  -    //called before a test setup method is run.
  +
  +    ///	<summary>
  +    ///	  Called before a test setup method is run.
  +    ///	</summary>
       procedure OnSetupTest(const threadId : Cardinal; Test: ITestInfo);
  -    //called after a test setup method is run.
  +
  +    ///	<summary>
  +    ///	  Called after a test setup method is run.
  +    ///	</summary>
       procedure OnEndSetupTest(const threadId : Cardinal; Test: ITestInfo);
   
  -    //called before a Test method is run.
  +
  +    ///	<summary>
  +    ///	  Called before a Test method is run.
  +    ///	</summary>
       procedure OnExecuteTest(const threadId : Cardinal; Test: ITestInfo);
   
   
  -    //called when a test succeeds.
  +    ///	<summary>
  +    ///	  Called when a test succeeds
  +    ///	</summary>
       procedure OnTestSuccess(const threadId : Cardinal; Test: ITestResult);
  -    //called when a test errors.
  +
  +    ///	<summary>
  +    ///	  Called when a test errors.
  +    ///	</summary>
       procedure OnTestError(const threadId : Cardinal; Error: ITestError);
  -    //called when a test fails.
  +
  +    ///	<summary>
  +    ///	  Called when a test fails.
  +    ///	</summary>
       procedure OnTestFailure(const threadId : Cardinal; Failure: ITestResult);
  -    //called when a test results in a warning.
  +
  +    ///	<summary>
  +    ///	  //called when a test results in a warning.
  +    ///	</summary>
       procedure OnTestWarning(const threadId : Cardinal; AWarning: ITestResult);
   
  -    //allows tests to write to the log.
  +
  +    ///	<summary>
  +    ///	  //allows tests to write to the log.
  +    ///	</summary>
       procedure OnLog(const logType : TLogLevel; const msg : string);
   
  -    //called before a Test Teardown method is run.
  +
  +    ///	<summary>
  +    ///	  //called before a Test Teardown method is run.
  +    ///	</summary>
       procedure OnTeardownTest(const threadId : Cardinal; Test: ITestInfo);
  -    //called after a test teardown method is run.
  +
  +    ///	<summary>
  +    ///	  //called after a test teardown method is run.
  +    ///	</summary>
       procedure OnEndTeardownTest(const threadId : Cardinal; Test: ITestInfo);
  -    //called after a test method and teardown is run.
  +
  +    ///	<summary>
  +    ///	  //called after a test method and teardown is run.
  +    ///	</summary>
       procedure OnEndTest(const threadId : Cardinal; Test: ITestResult);
   
  -    //called before a Fixture Teardown method is called.
  +
  +    ///	<summary>
  +    ///	  //called before a Fixture Teardown method is called.
  +    ///	</summary>
       procedure OnTearDownFixture(const threadId : Cardinal; const fixture : ITestFixtureInfo);
  -    //called after a Fixture Teardown method is called.
  +
  +    ///	<summary>
  +    ///	  //called after a Fixture Teardown method is called.
  +    ///	</summary>
       procedure OnEndTearDownFixture(const threadId : Cardinal; const fixture : ITestFixtureInfo);
   
  -    //called after a Fixture has run.
  +
  +    ///	<summary>
  +    ///	  //called after a Fixture has run.
  +    ///	</summary>
       procedure OnEndTestFixture(const threadId : Cardinal; const results : IFixtureResult);
   
  -    //called after all fixtures have run.
  +
  +    ///	<summary>
  +    ///	  //called after all fixtures have run.
  +    ///	</summary>
       procedure OnTestingEnds(const TestResult: ITestResults);
     end;
   
  
positive.code: 
    TValueArray = array of TValue;
  
    ///  The TestCaseAttribute allows you to specify the name of a function that returns a
    ///  TValueArray which will be passed into a function that takes parameters. This is really only
    ///  needed to work around the problens with the TestCaseAttribute
    ///  Note that the types in the TConstArray should match the parameters of the method we are testing.
    TestCaseAttribute = class(TCustomAttribute)
    private
      FCaseName : string;
  
negative.code:     procedure WriteLn;overload;
    end;
  {$ENDIF}
  
  
  
  
  