(in-package :cl-user)
(defpackage transacc-tests
  (:use :cl
        :fiveam))
(in-package :transacc-tests)

(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))))