mirror of
https://github.com/emilybache/GildedRose-Refactoring-Kata.git
synced 2025-12-12 04:12:13 +00:00
14 lines
391 B
Plaintext
14 lines
391 B
Plaintext
(defmodule gilded-rose-test
|
|
(behaviour ltest-unit)
|
|
(export all)
|
|
(import (from gilded-rose
|
|
(update-quality 1)
|
|
(make-item 3)
|
|
(item-name 1))))
|
|
|
|
(include-lib "ltest/include/ltest-macros.lfe")
|
|
|
|
(deftest update-quality-test
|
|
(is-equal "foo" (item-name (car (update-quality
|
|
(list (make-item "foo" 0 0)))))))
|