added more tests for inventory

1 files changed, 17 insertions, 3 deletions

diff --git a/tests/test.lisp b/tests/test.lisp
index 9884990..a040852 100644
--- a/tests/test.lisp
+++ b/tests/test.lisp
@@ -58,7 +58,8 @@
 ;; test add and substract
 (test inventory-add-and-substract
   (let ((i (inventory:new-inventory 100))
-		(c (commodities:new-commodity "apple" 2)))
+		(c (commodities:new-commodity "apple" 1))
+		(c2 (commodities:new-commodity "apple" 99)))
 	;; add 10
 	(is (= (inventory:add-item i c 10) 10))
 	(is (= (inventory:filled i) 10))
@@ -73,7 +74,20 @@
 	;; 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)))))
+	(is (and
+		 (commodities:commodity-eq
+		  c
+		  (car (inventory::find-item i "apple")))
+		 (= 96 (cdr (inventory::find-item i "apple")))))
+	;; test for adding differently priced same item
+	(is (= 1
+		   (commodities:price
+			(car (inventory::find-item i "apple")))))
+	(inventory:remove-item i "apple" 46)
+	(is (= 100
+		   (inventory:add-item i c2 50)))
+	(is (= 50
+		   (commodities:price
+			(car (inventory::find-item i "apple")))))))
 
 ;; creating inventory adding