mirror of
https://github.com/emilybache/GildedRose-Refactoring-Kata.git
synced 2025-12-12 04:12:13 +00:00
bf5b0d9cec
- added the existing implementation in common lisp with system-definition - added a parachute-unit-test - added a description for setup and running the unit-tests - added a description for stubbing and mocking with cl-mock
13 lines
429 B
Common Lisp
13 lines
429 B
Common Lisp
(in-package :gilded-rose-tests)
|
|
|
|
(define-test gilded-rose-testsuite)
|
|
|
|
(define-test "An item in gilded-rose is updated."
|
|
:parent gilded-rose-testsuite
|
|
(let* ((an-item (make-instance 'item :name "An item" :sell-in 1 :quality 1))
|
|
(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) "Fix me")))
|
|
|