diff --git a/sources/dylan/apple-dylan-test-suite/test-range.dylan b/sources/dylan/apple-dylan-test-suite/test-range.dylan index e4e3d9e320..3a36cafc5a 100644 --- a/sources/dylan/apple-dylan-test-suite/test-range.dylan +++ b/sources/dylan/apple-dylan-test-suite/test-range.dylan @@ -47,6 +47,10 @@ define test range-4 (description: "BY:") end test range-4; define test range-5 (description: "to:, by:, and size:") + check-true("", range(to: 5, by: 2, size: 3) = #(0, 2, 4)); + check-true("", range(to: 6, by: 2, size: 4) = #(0, 2, 4, 6)); + check-true("", range(to: -5, by: -2, size: 3) = #(0, -2, -4)); + check-true("", range(to: -6, by: -2, size: 4) = #(0, -2, -4, -6)); check-condition("", , range(to: 6, by: 2, size: 3)); check-condition("", , range(to: 6, by: 2, size: 3)); check-condition("", , range(to: -6, by: -2, size: 3));