anchor.diff:         continue;
       end;
   
  -
  -
       {$IFDEF DELPHI_XE_UP}
       //if there is a Destructor then we will use it as the fixture
       //Teardown method.
  
positive.code:     end;
  
  
      if method.TryGetAttributeOfType<SetupAttribute>(setupAttrib) then
      begin
        setupMethod := TTestMethod(meth);
        currentFixture.SetSetupTestMethod(method.Name,setupMethod);
        continue;
      end;
  
      if method.TryGetAttributeOfType<TearDownAttribute>(tearDownAttrib) then
      begin
        tearDownMethod := TTestMethod(meth);
        currentFixture.SetTearDownTestMethod(method.Name,tearDownMethod);
  
negative.code:   currentFixture: ITestFixture;
  begin
  //  WriteLn('Generating Tests for : ' + fixture.FullName);
  
    if fixture.HasChildFixtures then
    begin
      for childFixture in fixture.Children do
  