diff options
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")) |