diff options
| author | El-BG-1970 <elouan.gros.fr@gmail.com> | 2022-08-27 17:36:05 +0200 |
|---|---|---|
| committer | El-BG-1970 <elouan.gros.fr@gmail.com> | 2022-08-27 17:36:05 +0200 |
| commit | e056ac5d58e44a76a4185c37fce6948044b83c66 (patch) | |
| tree | b9f186a10f347822c30f64addf4126ce50a3bd1e /tests/test-player.lisp | |
| parent | c7dbdf46a0ae76c15621fb4c4c320db1422b1e9b (diff) | |
| download | transacc-e056ac5d58e44a76a4185c37fce6948044b83c66.tar.gz | |
smart redisplay for panel and zone-prices panes
Diffstat (limited to 'tests/test-player.lisp')
| -rw-r--r-- | tests/test-player.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/test-player.lisp b/tests/test-player.lisp index a74ecd7..82cabcf 100644 --- a/tests/test-player.lisp +++ b/tests/test-player.lisp @@ -34,11 +34,11 @@ (is (= 1950 (player:get-cash p))) (is (not (player:buy-item p truck 1))) (is (= 10 - (inventory:filled (player::stock p)))) + (car (inventory:how-filled (player::stock p))))) (is (player:buy-item p c2 10)) (is (= 1840 (player:get-cash p))) (is (= 20 - (inventory:filled (player::stock p)))))) + (car (inventory:how-filled (player::stock p))))))) (test sell-item (let ((p (player:init-player "Joze")) |