blob: c6646295cbf10a3d37ecdacb93e0b039d1c26cd7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
(in-package :transacc-tests)
;;; TESTING COMMODITIES
(def-suite* commodities-suite
:description "Test object and methods for commodities"
:in transacc-suite)
;; we make sure creating a commodity returns one
(test commodity-creation
(let ((c1 (commodities:new-commodity "apple" 1))
(c2 (commodities:new-commodity "pear" 4))
(c3 (commodities:new-commodity "petrol" -3))
(c4 (commodities:new-commodity "void" 0)))
(is (equal (type-of c1) 'commodities::commodity))
(is (equal (type-of c2) 'commodities::commodity))
(is (eq c3 nil))
(is (eq c4 nil))))
;; we make sure a commodity created with given values
;; in fact contains said values
(test commodity-values
(let ((c (commodities:new-commodity "car" 10000)))
(is (equal (commodities:name c) "car"))
(is (= (commodities:price c) 10000))))
|
