From 4dc89ae42785cc2f700adb2dff036171ec4d9e44 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Tue, 2 Sep 2008 13:07:37 -0500 Subject: [PATCH] fix tests --- extra/math/statistics/statistics-tests.factor | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/extra/math/statistics/statistics-tests.factor b/extra/math/statistics/statistics-tests.factor index 0884e1aed2..b6ff421956 100644 --- a/extra/math/statistics/statistics-tests.factor +++ b/extra/math/statistics/statistics-tests.factor @@ -5,7 +5,7 @@ IN: math.statistics.tests [ 3/2 ] [ { 1 2 } mean ] unit-test [ 0 ] [ { 0 0 0 } geometric-mean ] unit-test [ t ] [ { 2 2 2 2 } geometric-mean 2.0 .0001 ~ ] unit-test -[ 1 ] [ { 1 1 1 } geometric-mean ] unit-test +[ 1.0 ] [ { 1 1 1 } geometric-mean ] unit-test [ 1/3 ] [ { 1 1 1 } harmonic-mean ] unit-test [ 0 ] [ { 1 } range ] unit-test @@ -14,12 +14,11 @@ IN: math.statistics.tests [ 5/2 ] [ { 1 2 3 4 } median ] unit-test [ 1 ] [ { 1 2 3 } var ] unit-test -[ 1 ] [ { 1 2 3 } std ] unit-test +[ 1.0 ] [ { 1 2 3 } std ] unit-test [ t ] [ { 1 2 3 4 } ste 0.6454972243679028 - .0001 < ] unit-test [ t ] [ { 23.2 33.4 22.5 66.3 44.5 } std 18.1906 - .0001 < ] unit-test [ 0 ] [ { 1 } var ] unit-test -[ 0 ] [ { 1 } std ] unit-test -[ 0 ] [ { 1 } ste ] unit-test - +[ 0.0 ] [ { 1 } std ] unit-test +[ 0.0 ] [ { 1 } ste ] unit-test