From cbf022454b6de95d1bd43b761985b6fa7aa229c7 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Fri, 4 May 2012 10:06:24 -0700 Subject: [PATCH] math.finance: adding some tests. --- extra/math/finance/finance-tests.factor | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/extra/math/finance/finance-tests.factor b/extra/math/finance/finance-tests.factor index eb4b238f61..0d14bcb6d3 100644 --- a/extra/math/finance/finance-tests.factor +++ b/extra/math/finance/finance-tests.factor @@ -1,11 +1,21 @@ -USING: kernel math math.functions math.finance tools.test ; +USING: kernel math math.functions math.finance sequences +tools.test ; IN: math.finance.tests -[ { 1 2 3 4 } ] [ { 1 2 3 4 5 } 1 ema ] unit-test +[ { 1 2 3 4 5 } ] [ { 1 2 3 4 5 } 1 ema ] unit-test +[ { 1+1/2 2+1/2 3+1/2 4+1/2 } ] [ { 1 2 3 4 5 } 2 ema ] unit-test +[ { 2 3 4 } ] [ { 1 2 3 4 5 } 3 ema ] unit-test [ { 2 4 } ] [ { 1 3 5 } 2 sma ] unit-test +[ { 2 3 4 5 } ] [ 6 iota 2 dema ] unit-test + +[ t ] [ 6 iota 2 [ dema ] [ 1 gdema ] 2bi = ] unit-test + +[ { 3 4 5 } ] [ 6 iota 2 tema ] unit-test +[ { 6 7 8 9 } ] [ 10 iota 3 tema ] unit-test + [ { 1 3 1 } ] [ { 1 3 2 6 3 } 2 momentum ] unit-test [ 4+1/6 ] [ 100 semimonthly ] unit-test