@@ -4,6 +4,9 @@ interface
4
4
uses
5
5
DUnitX.TestFramework;
6
6
7
+ const
8
+ CanonicalVersion = ' 1.1.0' ;
9
+
7
10
type
8
11
9
12
[TestFixture]
@@ -33,10 +36,18 @@ AllergyTests = class(TObject)
33
36
[Ignore]
34
37
procedure Allergic_to_just_peanuts ;
35
38
39
+ [Test]
40
+ [Ignore]
41
+ procedure Allergic_to_just_strawberries ;
42
+
36
43
[Test]
37
44
[Ignore]
38
45
procedure Allergic_to_eggs_and_peanuts ;
39
46
47
+ [Test]
48
+ [Ignore]
49
+ procedure Allergic_to_more_than_eggs_but_not_peanuts ;
50
+
40
51
[Test]
41
52
[Ignore]
42
53
procedure Allergic_to_lots_of_stuff ;
@@ -101,6 +112,14 @@ procedure AllergyTests.Allergic_to_just_peanuts;
101
112
assert.IsTrue(allergies.IList.Contains(' peanuts' ));
102
113
end ;
103
114
115
+ procedure AllergyTests.Allergic_to_just_strawberries ;
116
+ var allergies: IAllergies;
117
+ begin
118
+ allergies := TAllergies.Create(8 );
119
+ assert.AreEqual(1 , allergies.IList.Count);
120
+ assert.IsTrue(allergies.IList.Contains(' strawberries' ));
121
+ end ;
122
+
104
123
procedure AllergyTests.Allergic_to_eggs_and_peanuts ;
105
124
var allergies: IAllergies;
106
125
begin
@@ -110,6 +129,15 @@ procedure AllergyTests.Allergic_to_eggs_and_peanuts;
110
129
assert.IsTrue(allergies.IList.Contains(' eggs' ));
111
130
end ;
112
131
132
+ procedure AllergyTests.Allergic_to_more_than_eggs_but_not_peanuts ;
133
+ var allergies: IAllergies;
134
+ begin
135
+ allergies := TAllergies.Create(5 );
136
+ assert.AreEqual(2 , allergies.IList.Count);
137
+ assert.IsTrue(allergies.IList.Contains(' eggs' ));
138
+ assert.IsTrue(allergies.IList.Contains(' shellfish' ));
139
+ end ;
140
+
113
141
procedure AllergyTests.Allergic_to_lots_of_stuff ;
114
142
var allergies: IAllergies;
115
143
Expected: TArray<string>;
0 commit comments