Added test for limits.

tpapp · Jul 4, 2011 · 7ba3ae5 · 7ba3ae5
1 parent c99c7c7
commit 7ba3ae5
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/tests/statistics.lisp b/tests/statistics.lisp
@@ -122,9 +122,14 @@
 
 (addtest (statistics-tests)
   (let+ ((end 5)
+         (index 0)                      ; to make sure we have 1 of each
          (pairs (filled-array 100
                               (lambda ()
-                                (@ (random 100d0) (random end)))))
+                                (prog1 (@ (random 100d0)
+                                          (if (< index end)
+                                              index
+                                              (random end)))
+                                  (incf index)))))
          (acc #'mean-sse-accumulator)
          (result (sweep (sparse-accumulator-array 1 acc) pairs))
          (*lift-equality-test* #'==)
@@ -136,6 +141,7 @@
                  pairs)
             (when (plusp (tally accumulator))
               accumulator))))
+    (ensure-same (limits result) (vector `(0 . ,end)))
     (loop for i below end do
       (ensure-same (ref result i) (sparse-acc pairs (funcall acc) i)))))