Add unit tests

m3f.asd

@@ -21,5 +21,6 @@
 (defsystem "m3f/tests"
     :depends-on ("fiveam" "m3f")
     :pathname "test"
-    :components ((:file "tiff-tests")
+    :components ((:file "arrays-tests")
+		 (:file "tiff-tests")
 		 (:file "report-tests")))

src/arrays.lisp

@@ -22,7 +22,7 @@ the source and destination region must not overlap."
 	    (> (+ src-offs count) (length src))
 	    (> (+ dest-offs count) (length dest)))
     ;; TODO: signal error more in line what AREF would signal
-    (error "index out of bounbds"))
+    (error "index out of bounds"))
   (dotimes (i count)
     (setf (aref dest (+ dest-offs i))
 	  (aref src (+ src-offs i)))))

test/arrays-tests.lisp

@@ -0,0 +1,14 @@
+(defpackage :arrays-tests
+  (:use :cl :fiveam :arrays))
+
+(in-package :arrays-tests)
+
+(def-suite arrays-tests)
+(in-suite arrays-tests)
+
+(test all
+      (let ((a (make-array 9 :element-type '(unsigned-byte 8))))
+	(dotimes (i (length a))
+	  (setf (aref a i) (+ i 1)))
+	(copy-bytes a 4 a 1 2)
+	(is (equalp #(1 5 6 4 5 6 7 8 9) a))))