ranges: Fix sum of empty range.

[factor.git] / core / ranges / ranges-tests.factor

diff --git a/core/ranges/ranges-tests.factor b/core/ranges/ranges-tests.factor
index 6d4c6055aca87b77eabcd5189f1ccbe7ddc8e00c..4506d3b15e50c8b8ba7707fc80b92c0697c78a0f 100644 (file)
--- a/core/ranges/ranges-tests.factor
+++ b/core/ranges/ranges-tests.factor
@@ -55,3 +55,6 @@ USING: arrays kernel math ranges sequences sets tools.test ;
 { t } [ -10 10 2 <range> [ sum ] [ >array sum ] bi = ] unit-test
 { t } [ 10 -10 -1 <range> [ sum ] [ >array sum ] bi = ] unit-test
 { t } [ 10 -10 -2 <range> [ sum ] [ >array sum ] bi = ] unit-test
+
+! Empty range
+{ 0 } [ 1 0 1 <range> sum ] unit-test
\ No newline at end of file