From 080878db58f67845b382f19857f731cfb9794865 Mon Sep 17 00:00:00 2001 From: El-BG-1970 Date: Fri, 29 Jul 2022 16:44:09 +0200 Subject: more inventory tests --- tests/test.lisp | 16 ++++++++++++++-- 1 file changed, 14 insertions(+), 2 deletions(-) diff --git a/tests/test.lisp b/tests/test.lisp index f2136d6..9884990 100644 --- a/tests/test.lisp +++ b/tests/test.lisp @@ -59,9 +59,21 @@ (test inventory-add-and-substract (let ((i (inventory:new-inventory 100)) (c (commodities:new-commodity "apple" 2))) - (inventory:add-item i c 10) + ;; add 10 + (is (= (inventory:add-item i c 10) 10)) (is (= (inventory:filled i) 10)) + ;; remove 4 (is (equal (inventory:remove-item i "apple" 4) - (cons c 4))))) + (cons c 4))) + (is (= (inventory:filled i) 6)) + (is (equal (inventory::find-item i "apple") + (cons c 6))) + ;; adding 90 + (is (= (inventory:add-item i c 90) 96)) + ;; adding one too many + (is (not (inventory:add-item i c 5))) + (is (= (inventory::filled i) 96)) + (is (equal (inventory::find-item i "apple") + (cons c 96))))) ;; creating inventory adding -- cgit v1.2.3