Rename texttest fixture, fix type in name.

scheme/texttest-fixture.scm

@@ -0,0 +1,32 @@
+(include "gilded-rose.scm")
+
+(display "OMGHAI!")
+(newline)
+
+(let ((items (list (make-item "+5 Dexterity Vest" 10 20)
+                   (make-item "Aged Brie" 2 0)
+                   (make-item "Elixir of the Mongoose" 5 7)
+                   (make-item "Sulfuras, Hand of Ragnaros" 0 80)
+                   (make-item "Sulfuras, Hand of Ragnaros" -1 80)
+                   (make-item "Backstage passes to a TAFKAL80ETC concert" 15 20)
+                   (make-item "Backstage passes to a TAFKAL80ETC concert" 10 49)
+                   (make-item "Backstage passes to a TAFKAL80ETC concert" 5 49)
+                   ;; this conjured item does not work properly yet
+                   (make-item "Conjured Mana Cake" 3 6)))
+      (days  2))
+
+    (define (loop day)
+        (cond ((< day days)
+               (display (string-append "-------- day " (number->string day) " --------"))
+               (newline)
+               (display "name, sell-in, quality")
+               (newline)
+               (for-each
+                   (lambda (item)
+                       (display (item-to-string item))
+                       (newline))
+                   items)
+               (newline)
+               (update-quality items)
+               (loop (+ day 1)))))
+    (loop 0))