anchor.diff:  
   class procedure Assert.AreNotEqual(const left, right, tolerance: Extended; const message: string);
   begin
  -  if not Math.SameValue(left, right, tolerance) then
  +  if Math.SameValue(left, right, tolerance) then
       Fail(Format('%g equals right %g %s' ,[left,right,message]), ReturnAddress);
   end;
   
  
positive.code:   TestInOwnThreadAttribute = class(TCustomAttribute);
  
    ///	<summary>
    ///	  A method marked with this attribute will run before any tests in. Note
    ///	  that if more than one method is decorated with this attributethe first
    ///	  method found will be executed (not recommended!).
    ///	</summary>
    SetupFixtureAttribute = class(TCustomAttribute)
  
negative.code: 
    ///	<summary>
    ///	  A TestFixture decorated with this attribute will be tested using it's
    ///	  own thread. �This can speed up unit testing when fixtures do not
    ///	  compete for resources and the test machine has enough cores to service
    ///	  the tests.
    ///	</summary>
  