anchor.diff:    assert.IsFalse(TYear.IsLeap(2100), 'Expected ''false'', 2100 is not a leap year.');
   end;
   
  +procedure YearTest.year_divisible_by_200_not_divisible_by_400_common_year;
  +begin
  +  assert.IsFalse(TYear.IsLeap(1800), 'Expected ''false'', 1800 is not a leap year.');
  +end;
  +
   procedure YearTest.year_divisible_by_400_leap_year;
   begin
     assert.IsTrue(TYear.IsLeap(2000), 'Expected ''true'', 2000 is a leap year.');
  
positive.code:     [Test]
      [Ignore]
      procedure year_divisible_by_400_leap_year;
    end;
  
  implementation
  
negative.code:   YearTest = class(TObject)
    public
      [Test]
  //    [Ignore('Comment the "[Ignore]" statement to run the test')]
      procedure year_not_divisible_by_4_common_year;
  
      [Test]
  