mirror of
https://github.com/emilybache/GildedRose-Refactoring-Kata.git
synced 2025-12-12 04:12:13 +00:00
35f11a141d
- adapted initialization and testcase to the values of the implementation in other programming languages
13 lines
399 B
Common Lisp
13 lines
399 B
Common Lisp
(in-package :gilded-rose-tests)
|
|
|
|
(define-test gilded-rose-testsuite)
|
|
|
|
(define-test "Test foo."
|
|
:parent gilded-rose-testsuite
|
|
(let* ((an-item (make-instance 'item :name "foo" :sell-in 0 :quality 0))
|
|
(some-items (list an-item))
|
|
(my-app (make-instance 'gilded-rose :items some-items)))
|
|
(update-quality my-app)
|
|
(is equal (slot-value (first (slot-value my-app 'items)) 'name) "fixme")))
|
|
|