14 lines
279 B
Common Lisp
14 lines
279 B
Common Lisp
(defpackage #:hsx-test/group
|
|
(:use #:cl
|
|
#:rove
|
|
#:hsx/group))
|
|
(in-package #:hsx-test/group)
|
|
|
|
(defgroup fruit
|
|
apple banana orange)
|
|
|
|
(deftest group-test
|
|
(testing "defgroup"
|
|
(ok (hash-table-p *fruit*))
|
|
(ok (fruit-p :apple))
|
|
(ng (fruit-p :tomato))))
|