OpenSource/GildedRose-Refactoring-Kata
1
0
Fork 0
mirror of https://github.com/emilybache/GildedRose-Refactoring-Kata.git synced 2025-12-12 20:32:15 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Doing the Erlang way, extracted item into separate file as include.

Browse Source
This commit is contained in:
Manfred Bergmann 2022-01-23 18:59:55 +01:00
parent 88211625bb
commit c092826624
3 changed files with 9 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lfe/include/gilded-rose-item.lfe Normal file
View File

@ -0,0 +1,4 @@
;;; Item
(defrecord item
name sellin quality)

11
lfe/src/gilded-rose.lfe
View File

@ -46,16 +46,7 @@
(defmodule gilded-rose (defmodule gilded-rose
(export all)) (export all))
;;; Item (include-lib "include/gilded-rose-item.lfe")
(defrecord item
name sellin quality)
;; for external use by 'import'
(defun make-item (name sellin quality)
(make-item name name sellin sellin quality quality))
(defun item-name (item)
(item-name item))
;; update-quality ;; update-quality

8
lfe/test/gilded-rose-test.lfe
View File

@ -2,12 +2,12 @@
(behaviour ltest-unit) (behaviour ltest-unit)
(export all) (export all)
(import (from gilded-rose (import (from gilded-rose
(update-quality 1) (update-quality 1))))
(make-item 3)
(item-name 1))))
(include-lib "ltest/include/ltest-macros.lfe") (include-lib "ltest/include/ltest-macros.lfe")
(include-lib "include/gilded-rose-item.lfe")
(deftest update-quality-test (deftest update-quality-test
(is-equal "foo" (item-name (car (update-quality (is-equal "foo" (item-name (car (update-quality
(list (make-item "foo" 0 0))))))) (list (make-item name "foo" sellin 0 quality 0)))))))