;; IDENTITY-3-BY-3
;; By Peter Reidy
;; Filed as {ERIS}<LISPCORE>TEST>DISPLAY>MATMULT>IDENTITY-3-BY-3.TEST
;; Syntax: (IDENTITY-3-BY-3 &optional RESULT)
;; Function description: returns a 3-by-3 identity matrix - i.e. one in which every (N,N) element is 1.0 and every other is 0.0.  If RESULT is supplied and is a 3-by-3 matrix of element-type single-float, the result is returned there. 
;; Arguments:
;;	RESULT - a 3-by-3 matrix of element-type single-float
;;
(do-test-group make-homogeneous-n-by-4-group
	:before
	(progn
		(il:load? '{eris}<lispcore>test>display>matmult>matmult-test.source)
		(test-setq non-ident (il:make-homogeneous-3-by-3 :a00 22.77 :a10 pi))
	)
;;
	(do-test identity-3-by-3-simple-case
		(and
			(idtest (il:identity-3-by-3)3)
			(not (idtest (il:identity-4-by-4) 3))
		)
	)
;;
	(do-test n-by-4-with-result
		(and
			(not(idtest non-ident 3))  ; before
			(il:identity-3-by-3 non-ident)
			(idtest non-ident 3)  ; after
		)
	)
)
END