diff options
Diffstat (limited to 'stdlib/source/test/lux/world/finance/market/analysis/pivot_point.lux')
-rw-r--r-- | stdlib/source/test/lux/world/finance/market/analysis/pivot_point.lux | 28 |
1 files changed, 19 insertions, 9 deletions
diff --git a/stdlib/source/test/lux/world/finance/market/analysis/pivot_point.lux b/stdlib/source/test/lux/world/finance/market/analysis/pivot_point.lux index 79eb95766..e9ef7baee 100644 --- a/stdlib/source/test/lux/world/finance/market/analysis/pivot_point.lux +++ b/stdlib/source/test/lux/world/finance/market/analysis/pivot_point.lux @@ -36,13 +36,23 @@ it) (money.>= (the session.#low session) it)))) - (_.coverage [/.Central_Pivot_Range /.central_pivot_range - /.#pivot_point /.#top_central /.#bottom_central] - (let [it (/.central_pivot_range session)] - (and (money.= (/.typical_price session) - (the /.#pivot_point it)) - (money.< (the /.#top_central it) - (the /.#pivot_point it)) - (money.> (the /.#bottom_central it) - (the /.#pivot_point it))))) + (_.coverage [/.Central_Pivot_Range + /.#pivot_point /.#top_central /.#bottom_central + + /.central_pivot_range] + (let [it (/.central_pivot_range session) + + pivot_is_typical! + (money.= (/.typical_price session) + (the /.#pivot_point it)) + + all_values_are_different! + (and (not (money.= (the /.#bottom_central it) + (the /.#pivot_point it))) + (not (money.= (the /.#top_central it) + (the /.#pivot_point it))) + (not (money.= (the /.#bottom_central it) + (the /.#top_central it))))] + (and pivot_is_typical! + all_values_are_different!))) ))) |