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

Update tests.lisp

Browse Source 
- adapted initialization and testcase to the values of the implementation in other programming languages
This commit is contained in:
NicoSimoski 2023-07-27 11:55:00 +02:00 committed by GitHub
parent 6ecbea14f8
commit 35f11a141d
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
common-lisp-parachute/tests/tests.lisp
View File

@ -2,11 +2,11 @@
(define-test gilded-rose-testsuite) (define-test gilded-rose-testsuite)
(define-test "An item in gilded-rose is updated." (define-test "Test foo."
:parent gilded-rose-testsuite :parent gilded-rose-testsuite
(let* ((an-item (make-instance 'item :name "An item" :sell-in 1 :quality 1)) (let* ((an-item (make-instance 'item :name "foo" :sell-in 0 :quality 0))
(some-items (list an-item)) (some-items (list an-item))
(my-app (make-instance 'gilded-rose :items some-items))) (my-app (make-instance 'gilded-rose :items some-items)))
(update-quality my-app) (update-quality my-app)
(is equal (slot-value (first (slot-value my-app 'items)) 'name) "Fix me"))) (is equal (slot-value (first (slot-value my-app 'items)) 'name) "fixme")))