Navigation

Changeset 2706

Timestamp:

03/08/08 15:46:23 (10 months ago)

Author:

ksprotte

Message:

:bknr.geometry now uses a dedicated package for testing

Files:

r2702	r2706
1		(in-package :bknr.geometry)
	1
	2	(defpackage :bknr.geometry.test
	3	(:use :cl :bknr.geometry :fiveam :alexandria)
	4	(:shadowing-import-from :bknr.geometry #:position #:intersection #:union #:equal #:search))
	5
	6	(in-package :bknr.geometry.test)
2	7
3	8	(eval-when (:compile-toplevel :load-toplevel :execute)
4		#+sbcl(require :sb-introspect)
5		(unintern 'test :bknr.geometry)
6		(use-package :5am))
	9	#+sbcl(require :sb-introspect))
7	10
8	11	(def-suite :bknr.geometry)

r2699	r2706
2	2	(:use #:cl #:alexandria #:iterate)
3	3	(:shadow #:position #:intersection #:union #:equal #:search)
4		(:export ))
	4	(:export #:make-point
	5	#:make-rectangle
	6	#:make-pixel
	7	#:make-polygon
	8	#:make-quad-tree
	9	;;
	10	#:quad-tree
	11	#:slow-quad-tree
	12	;;
	13	#:area
	14	#:bottom
	15	#:bounding-rectangle
	16	#:brute-force-encloses-p
	17	#:center
	18	#:encloses-p
	19	#:equal
	20	#:height
	21	#:importance
	22	#:insert
	23	#:intersection
	24	#:intersects-p
	25	#:left
	26	#:left-top
	27	#:overlap-relation
	28	#:pixelize
	29	#:position
	30	#:position-x
	31	#:position-y
	32	#:right
	33	#:right-bottom
	34	#:search
	35	#:split-in-quads
	36	#:top
	37	#:vertices
	38	#:width
	39	))
5	40
	41
	42