From 3dc8dc250a5cd4089f43a4ff2ac9e9593fa93203 Mon Sep 17 00:00:00 2001 From: El-BG-1970 Date: Sun, 31 Jul 2022 17:30:05 +0200 Subject: buy-item and some player tests --- tests/test.lisp | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) (limited to 'tests') 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)))) + )) -- cgit v1.2.3