Merge pull request #216 from rpottsoh/updateAllergies

Author: rpottsoh

exercises/allergies/uAllergyTests.pas

@@ -4,6 +4,9 @@ interface
 uses
   DUnitX.TestFramework;
 
+const
+  CanonicalVersion = '1.1.0';
+
 type
 
   [TestFixture]
@@ -33,10 +36,18 @@   AllergyTests = class(TObject)
     [Ignore]
     procedure Allergic_to_just_peanuts;
 
+    [Test]
+    [Ignore]
+    procedure Allergic_to_just_strawberries;
+
     [Test]
     [Ignore]
     procedure Allergic_to_eggs_and_peanuts;
 
+    [Test]
+    [Ignore]
+    procedure Allergic_to_more_than_eggs_but_not_peanuts;
+
     [Test]
     [Ignore]
     procedure Allergic_to_lots_of_stuff;
@@ -101,6 +112,14 @@ procedure AllergyTests.Allergic_to_just_peanuts;
   assert.IsTrue(allergies.IList.Contains('peanuts'));
 end;
 
+procedure AllergyTests.Allergic_to_just_strawberries;
+var allergies: IAllergies;
+begin
+  allergies := TAllergies.Create(8);
+  assert.AreEqual(1, allergies.IList.Count);
+  assert.IsTrue(allergies.IList.Contains('strawberries'));
+end;
+
 procedure AllergyTests.Allergic_to_eggs_and_peanuts;
 var allergies: IAllergies;
 begin
@@ -110,6 +129,15 @@ procedure AllergyTests.Allergic_to_eggs_and_peanuts;
   assert.IsTrue(allergies.IList.Contains('eggs'));
 end;
 
+procedure AllergyTests.Allergic_to_more_than_eggs_but_not_peanuts;
+var allergies: IAllergies;
+begin
+  allergies := TAllergies.Create(5);
+  assert.AreEqual(2, allergies.IList.Count);
+  assert.IsTrue(allergies.IList.Contains('eggs'));
+  assert.IsTrue(allergies.IList.Contains('shellfish'));
+end;
+
 procedure AllergyTests.Allergic_to_lots_of_stuff;
 var allergies: IAllergies;
     Expected: TArray<string>;