From 164b961cdd97c4ef324bbb0ae5f46b394201183b Mon Sep 17 00:00:00 2001 From: El-BG-1970 Date: Thu, 4 Aug 2022 11:13:32 +0200 Subject: implemented game:buy-item and game:sell-item --- tests/test.lisp | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) (limited to 'tests/test.lisp') diff --git a/tests/test.lisp b/tests/test.lisp index fb37c94..73f03b8 100644 --- a/tests/test.lisp +++ b/tests/test.lisp @@ -6,3 +6,22 @@ (def-suite transacc-suite :description "Test transacc") + +;;; Game tests +(def-suite* game-suite + :description "Test object and methods for game" + :in transacc-suite) + +;; testing buy-item +(test buy-item + (let* ((p (player:init-player "Joze")) + (c (list (commodities:new-commodity "apple" 5) + (commodities:new-commodity "pear" 7))) + (z (zone:new-zone "Bronx" c)) + (g (game:new-game p z (list z)))) + (is (game:buy-item g "apple" 10)) + (is (not (game:sell-item g "pear" 1))) + (is (game:sell-item g "apple" 5)) + (is (game:sell-item g "apple" 5)) + (is (game:buy-item g "pear" 20)) + (is (game:sell-item g "pear" 100)))) -- cgit v1.2.3