14 lines
336 B
Common Lisp
14 lines
336 B
Common Lisp
;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
|
|
|
|
(in-package :kenzo-test)
|
|
|
|
(in-suite :kenzo)
|
|
|
|
|
|
(test circle
|
|
(cat:cat-init)
|
|
(let ((circle (cat:circle)))
|
|
(is (equal (cat:basis circle 0) '(*)))
|
|
(is (equal (cat:basis circle 1) '(cat::s1)))
|
|
(is (equal (cat:basis circle 2) cat:+empty-list+))))
|