math.statistics: adding some range sum-of tests.

diff --git a/basis/math/statistics/statistics-tests.factor b/basis/math/statistics/statistics-tests.factor
index 965a4e095cbb65e9b20e2ccd7a4b1178ead5125b..f528dd0837af8b50877da16b33973231e97f231f 100644 (file)
--- a/basis/math/statistics/statistics-tests.factor
+++ b/basis/math/statistics/statistics-tests.factor
@@ -24,12 +24,18 @@ IN: math.statistics
 
 { 2470 } [ 20 <iota> sum-of-squares ] unit-test
 { 2470 } [ 20 <iota> >array sum-of-squares ] unit-test
+{ 371 } [ 4 10 [a,b] sum-of-squares ] unit-test
+{ 371 } [ 4 10 [a,b] >array sum-of-squares ] unit-test
 
 { 36100 } [ 20 <iota> sum-of-cubes ] unit-test
 { 36100 } [ 20 <iota> >array sum-of-cubes ] unit-test
+{ 2989 } [ 4 10 [a,b] sum-of-cubes ] unit-test
+{ 2989 } [ 4 10 [a,b] >array sum-of-cubes ] unit-test
 
 { 562666 } [ 20 <iota> sum-of-quads ] unit-test
 { 562666 } [ 20 <iota> >array sum-of-quads ] unit-test
+{ 25235 } [ 4 10 [a,b] sum-of-quads ] unit-test
+{ 25235 } [ 4 10 [a,b] >array sum-of-quads ] unit-test
 
 { 0 } [ { 1 } range ] unit-test
 { 89 } [ { 1 2 30 90 } range ] unit-test