Skip to content

Commit cd7f307

Browse files
committed
1 parent fa99208 commit cd7f307

File tree

1 file changed

+19
-0
lines changed

1 file changed

+19
-0
lines changed

src/tests/units/evaluation-test.r3

+19
Original file line numberDiff line numberDiff line change
@@ -743,6 +743,25 @@ Rebol [
743743
e/id = 'overflow
744744
num = 1
745745
]
746+
;@@ https://github.com/Oldes/Rebol-issues/issues/1994
747+
num: 0
748+
--assert all [
749+
error? e: try [
750+
for i 9223372036854775807 9223372036854775807 9223372036854775807 [
751+
num: num + 1
752+
if num <> 1 [break/return false]
753+
true
754+
]
755+
]
756+
e/id = 'overflow
757+
num == 1 ;- note that num was incremented!
758+
]
759+
--assert all [
760+
nnum: 0
761+
for i 1 1 1 [num: num + 1]
762+
num == 1 ;- also incremented
763+
]
764+
746765
--test-- "FOR with series! start and number! end"
747766
;@@ https://github.com/Oldes/Rebol-issues/issues/1601
748767
out: copy ""

0 commit comments

Comments
 (0)