Sha256: 3bfe1120eae954dd3cf784ec860fa66f2b5c2ecca8bbd2120418f211b2ede913
Contents?: true
Size: 1.24 KB
Versions: 71
Compression:
Stored size: 1.24 KB
Contents
unit uLeapTests;
interface
uses
DUnitX.TestFramework;
const
CanonicalVersion = '1.3.0';
type
[TestFixture]
YearTest = class(TObject)
public
[Test]
// [Ignore('Comment the "[Ignore]" statement to run the test')]
procedure year_not_divisible_by_4_common_year;
[Test]
[Ignore]
procedure year_divisible_by_4_not_divisible_by_100_leap_year;
[Test]
[Ignore]
procedure year_divisible_by_100_not_divisible_by_400_common_year;
[Test]
[Ignore]
procedure year_divisible_by_400_leap_year;
end;
implementation
uses uLeap;
procedure YearTest.year_not_divisible_by_4_common_year;
begin
assert.IsFalse(TYear.IsLeap(2015), 'Expected ''false'', 2015 is not a leap year.');
end;
procedure YearTest.year_divisible_by_4_not_divisible_by_100_leap_year;
begin
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;
begin
assert.IsFalse(TYear.IsLeap(2100), 'Expected ''false'', 2100 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.');
end;
initialization
TDUnitX.RegisterTestFixture(YearTest);
end.
Version data entries
71 entries across 71 versions & 1 rubygems