;;;;;;;;;;;;;;;;;;;;;;;;
;;; pre-testing prep ;;;
;;;;;;;;;;;;;;;;;;;;;;;;
(load “../lisp-unit.lisp”)
(use-package :lisp-unit)
(load “matrix.lisp”)
(remove-tests :all)
(setq *print-failures* t)
;;;;;;;;;;;;;;;;;;;;;;;;
;;; test definitions ;;;
;;;;;;;;;;;;;;;;;;;;;;;;
(define-test test-are-adjacent
(assert-equal NIL (are-adjacent NIL 1 1))
(assert-equal NIL (are-adjacent ‘() 1 1))
(assert-equal NIL (are-adjacent ‘(1) 1 1))
(assert-equal T (are-adjacent ‘(1 1) 1 1))
(assert-equal NIL (are-adjacent ‘(1 2 3) 1 3))
(assert-equal NIL (are-adjacent ‘(1 2 3) 3 1))
(assert-equal T (are-adjacent ‘(1 2 3) 1 2))
(assert-equal T (are-adjacent ‘(1 2 3) 2 3))
(assert-equal T (are-adjacent ‘(1 2 3) 3 2))
(assert-equal T (are-adjacent ‘(1 2 3) 2 1))
(assert-equal NIL (are-adjacent ‘(1 2 1) 1 1))
(assert-equal T (are-adjacent ‘(1 2 1) 1 2))
)
(define-test test-transpose
(assert-equal () (transpose ()))
(assert-equal ‘( (1) ) (transpose ‘( (1) )))
(assert-equal ‘( (1) (2) (3) (4) ) (transpose ‘( (1 2 3 4) )))
(assert-equal ‘( (1 2 3 4) ) (transpose ‘( (1) (2) (3) (4) )))
(assert-equal ‘( (1 2) (3 4) ) (transpose ‘( (1 3) (2 4) )))
(assert-equal ‘( (1 3) (2 4) ) (transpose ‘( (1 2) (3 4) )))
)
(define-test test-are-neighbors
(assert-equal NIL (are-neighbors () 1 2))
(assert-equal T (are-neighbors ‘( (1 2 3) ) 1 2))
(assert-equal NIL (are-neighbors ‘( (1 2 3) ) 1 3))
(assert-equal T (are-neighbors ‘( (1) (2) (3) ) 1 2))
(assert-equal T (are-neighbors ‘( (1 2 3) (4 5 6) ) 1 2))
(assert-equal NIL (are-neighbors ‘( (1 2 3) (4 5 6) ) 2 6))
(assert-equal NIL (are-neighbors ‘( (1 2 3) (4 5 6) ) 1 6))
)
;;;;;;;;;;;;;;;;;
;;; run tests ;;;
;;;;;;;;;;;;;;;;;
(run-tests :all)