Add Delphi port

Delphi/GildedRoseTests.pas

@@ -0,0 +1,36 @@
+unit GildedRoseTests;
+
+interface
+uses
+  DUnitX.TestFramework,
+  GildedRose,
+  Item,
+  System.Generics.Collections;
+
+type
+  [TestFixture]
+  TGildedRoseTests = class(TObject)
+  public
+    [Test]
+    procedure UpdateQuality_Never_ChangesTheItemName;
+  end;
+
+implementation
+
+procedure TGildedRoseTests.UpdateQuality_Never_ChangesTheItemName;
+var
+  LItems: TObjectList<TItem>;
+  LGildedRose: TGildedRose;
+begin
+  LItems := TObjectList<TItem>.Create;
+  LItems.Add(TItem.Create('foo', 0, 0));
+  LGildedRose := TGildedRose.Create(LItems);
+
+  LGildedRose.UpdateQuality;
+
+  Assert.AreEqual('fixme', LGildedRose.Items[0].Name);
+end;
+
+initialization
+  TDUnitX.RegisterTestFixture(TGildedRoseTests);
+end.