From 00a46570d36720ab0ac4b6081b62ca96895a0acc Mon Sep 17 00:00:00 2001 From: El-BG-1970 Date: Mon, 1 Aug 2022 20:40:59 +0200 Subject: added sell-item method to player --- tests/test.lisp | 28 ++++++++++++++++++++++------ 1 file changed, 22 insertions(+), 6 deletions(-) (limited to 'tests') diff --git a/tests/test.lisp b/tests/test.lisp index 4961962..85f5f5d 100644 --- a/tests/test.lisp +++ b/tests/test.lisp @@ -100,14 +100,14 @@ (test creating-player (let ((p (player:init-player "Joze")) (p2 (player:init-player "Mehmout" 555 8976))) - (is (equal (type-of p) 'player::player)) + (is (eql (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 (= (player:get-cash p) 2000)) + (is (= (player:get-debt p) 5000)) + (is (eql (type-of p2) 'player::player)) (is (equal (player:name p2) "Mehmout")) - (is (= (player:cash p2) 555)) - (is (= (player:debt p2) 8976)))) + (is (= (player:get-cash p2) 555)) + (is (= (player:get-debt p2) 8976)))) (test repay-debt (let ((p (player::init-player "Joze")) @@ -122,9 +122,25 @@ (c2 (commodities:new-commodity "apple" 11)) (truck (commodities:new-commodity "truck" 100000))) (is (player:buy-item p c 10)) + (is (= 1950 (player:get-cash p))) (is (not (player:buy-item p truck 1))) (is (= 10 (inventory:filled (player::stock p)))) (is (player:buy-item p c2 10)) + (is (= 1840 (player:get-cash p))) (is (= 20 (inventory:filled (player::stock p)))))) + +(test sell-item + (let ((p (player:init-player "Joze")) + (c (commodities:new-commodity "apple" 5)) + (c2 (commodities:new-commodity "apple" 11)) + (c3 (commodities:new-commodity "apple" 8)) + (k (commodities:new-commodity "car" 10000))) + (is (player:buy-item p c 10)) + (is (= 1950 (player:get-cash p))) + (is (player:buy-item p c2 10)) + (is (= 1840 (player:get-cash p))) + (is (player:sell-item p c3 10)) + (is (= 1920 (player:get-cash p))) + (is (not (player:sell-item p k 1))))) -- cgit v1.2.3