diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/test.lisp | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/tests/test.lisp b/tests/test.lisp index a040852..a98e0db 100644 --- a/tests/test.lisp +++ b/tests/test.lisp @@ -91,3 +91,36 @@ (car (inventory::find-item i "apple"))))))) ;; creating inventory adding + + +;;; Player tests +(def-suite* player-suite + :description "Test object and methods for player" + :in transacc-suite) + +;; testing buy-item +(test creating-player + (let ((p (player:init-player "Joze")) + (p2 (player:init-player "Mehmout" 555 8976))) + (is (equal (type-of p) 'player::player)) + (is (equal (player:name p) "Joze")) + (is (= (player:cash p) 2000)) + (is (= (player:debt p) 5000)) + (is (equal (type-of p2) 'player::player)) + (is (equal (player:name p2) "Mehmout")) + (is (= (player:cash p2) 555)) + (is (= (player:debt p2) 8976)))) + +(test buy-item + (let ((p (player:init-player "Joze")) + (c (commodities:new-commodity "apple" 5)) + (c2 (commodities:new-commodity) "apple" 11) + (truck (commodities:new-commodity "truck" 100000))) + (is (player:buy-item p c 10)) + (is (not (player:buy-item p kar 1))) + (is (= 10 + (inventory:filled (player::stock p)))) + (is (player:buy-item p c2 10)) + (is (= 20 + (inventory:filled (player::stock p)))) + )) |