diff --git a/exercises/leap/uLeapTests.pas b/exercises/leap/uLeapTests.pas index 4cf83704..0f1a75d7 100644 --- a/exercises/leap/uLeapTests.pas +++ b/exercises/leap/uLeapTests.pas @@ -36,7 +36,7 @@ procedure YearTest.year_not_divisible_by_4_common_year; procedure YearTest.year_divisible_by_4_not_divisible_by_100_leap_year; begin - assert.IsTrue(TYear.IsLeap(2020), 'Expected ''true'', 2020 is a leap year.'); + assert.IsTrue(TYear.IsLeap(1996), 'Expected ''true'', 1996 is a leap year.'); end; procedure YearTest.year_divisible_by_100_not_divisible_by_400_common_year;