2024-06-01 11:14:17 +00:00
|
|
|
(defpackage #:hsx-test/group
|
|
|
|
|
(:use #:cl
|
2024-09-28 17:10:25 +00:00
|
|
|
#:rove
|
2024-06-01 11:14:17 +00:00
|
|
|
#:hsx/group))
|
|
|
|
|
(in-package #:hsx-test/group)
|
|
|
|
|
|
|
|
|
|
(defgroup fruit
|
|
|
|
|
apple banana orange)
|
|
|
|
|
|
2024-09-28 17:10:25 +00:00
|
|
|
(deftest group-test
|
|
|
|
|
(testing "defgroup"
|
|
|
|
|
(ok (hash-table-p *fruit*))
|
|
|
|
|
(ok (fruit-p :apple))
|
|
|
|
|
(ng (fruit-p :tomato))))
|
