Initial port.

io/io/GildedRose.io

@@ -0,0 +1,65 @@
+GildedRose := Object clone do(
+
+    init := method(
+        self items := list()
+    )
+
+    with := method(items,
+        result := self clone
+        result items = items
+        result
+    )
+
+    updateQuality := method(
+        for(i, 0, items size - 1,
+            if (items at(i) name != "Aged Brie" and
+                items at(i) name != "Backstage passes to a TAFKAL80ETC concert",
+                if (items at(i) quality > 0,
+                    if (items at(i) name != "Sulfuras, Hand of Ragnaros",
+                        items at(i) quality = items at(i) quality - 1
+                    )
+                )
+            ,
+                if (items at(i) quality < 50,
+                    items at(i) quality = items at(i) quality + 1
+
+                    if (items at(i) name == "Backstage passes to a TAFKAL80ETC concert",
+                        if (items at(i) sellIn < 11,
+                            if (items at(i) quality < 50,
+                                items at(i) quality = items at(i) quality + 1
+                            )
+                        )
+
+                        if (items at(i) sellIn < 6,
+                            if (items at(i) quality < 50,
+                                items at(i) quality = items at(i) quality + 1
+                            )
+                        )
+                    )
+                )
+            )
+
+            if (items at(i) name != "Sulfuras, Hand of Ragnaros",
+                items at(i) sellIn = items at(i) sellIn - 1
+            )
+
+            if (items at(i) sellIn < 0,
+                if (items at(i) name != "Aged Brie",
+                    if (items at(i) name != "Backstage passes to a TAFKAL80ETC concert",
+                        if (items at(i) quality > 0,
+                            if (items at(i) name != "Sulfuras, Hand of Ragnaros",
+                                items at(i) quality = items at(i) quality - 1
+                            )
+                        )
+                    ,
+                        items at(i) quality = items at(i) quality - items at(i) quality
+                    )
+                ,
+                    if (items at(i) quality < 50,
+                        items at(i) quality = items at(i) quality + 1
+                    )
+                )
+            )
+        )
+    )
+)

io/io/Item.io

@@ -0,0 +1,19 @@
+Item := Object clone do(
+
+    name := ""
+    sellIn := 0
+    quality := 0
+
+    with := method(name, sellIn, quality,
+        result := self clone
+        result name = name
+        result sellIn = sellIn
+        result quality = quality
+        result
+    )
+
+    asString = method(
+        self name .. ", " .. self sellIn .. ", " .. self quality
+    )
+
+)

io/tests/correctness/GildedRoseTest.io

@@ -0,0 +1,13 @@
+doRelativeFile("../../io/Item.io")
+doRelativeFile("../../io/GildedRose.io")
+
+GildedRoseTest := UnitTest clone do(
+
+    testFoo := method(
+        items := list( Item with("foo", 0, 0) )
+        app := GildedRose with(items)
+        app updateQuality
+        assertEquals("fixme", app items at(0) name)
+    )
+
+)