port GildedRose Java/Ruby to R language, add a RUnit test stub

R/texttest_fixture.R

@@ -0,0 +1,33 @@
+rm(list=ls())
+
+source('gilded_rose.R')
+
+writeLines('OMGHAI!')
+
+items <- list(
+  item('+5 Dexterity Vest', 10, 20),
+  item('Aged Brie', 2, 0),
+  item('Elixir of the Mongoose', 5, 7),
+  item('Sulfuras, Hand of Ragnaros', 0, 80),
+  item('Sulfuras, Hand of Ragnaros', -1, 80),
+  item('Backstage passes to a TAFKAL80ETC concert', 15, 20),
+  item('Backstage passes to a TAFKAL80ETC concert', 10, 49),
+  item('Backstage passes to a TAFKAL80ETC concert', 5, 49),
+  # This Conjured item does not work properly yet
+  item('Conjured Mana Cake', 3, 6)
+)
+
+days <- 2
+for (day in 0:days) {
+  writeLines(paste('-------- day ', day, ' --------', sep=''))
+  writeLines('name, sellIn, quality')
+  lapply(items, 
+    function(item) {
+      writeLines(as.character(item))
+    }
+  )
+  writeLines('')
+  items <- update_quality(items)
+}
+
+rm('day', 'days', 'items')