mirror of
https://github.com/emilybache/GildedRose-Refactoring-Kata.git
synced 2025-12-12 12:22:12 +00:00
23 lines
864 B
Plaintext
23 lines
864 B
Plaintext
(import ../src/main :as shop)
|
|
|
|
(defn get-items []
|
|
[ (shop/item "+5 Dexterity Vest" 20 10)
|
|
(shop/item "Aged Brie" 0 2)
|
|
(shop/item "Elixir of the Mongoose" 7 5)
|
|
(shop/item "Sulfuras, Hand of Ragnaros" 80 0)
|
|
(shop/item "Sulfuras, Hand of Ragnaros" 80 -1)
|
|
(shop/item "Backstage passes to a TAFKAL80ETC concert" 20 15)
|
|
(shop/item "Backstage passes to a TAFKAL80ETC concert" 49 10)
|
|
(shop/item "Backstage passes to a TAFKAL80ETC concert" 49 5)
|
|
(shop/item "Conjured Mana Cake" 6 3)])
|
|
|
|
# judge allows for snapshot testing of stdout, much like the texttest tool.
|
|
# So something like the following would create a janet-native test of the output of shop/run:
|
|
#
|
|
# (test-stdout (shop/run 30 (get-items)))
|
|
|
|
(defn main [& args]
|
|
(def num-days (scan-number (or (get args 1) "-1")))
|
|
(def items (get-items))
|
|
(shop/run num-days items))
|