TEST: Oldes/Rebol-issues#1529

Oldes · Jun 21, 2023 · de51470 · de51470
1 parent e3c2247
commit de51470
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/src/tests/units/evaluation-test.r3 b/src/tests/units/evaluation-test.r3
@@ -855,6 +855,10 @@ Rebol [
 		for x "abcde" tail "ab" 1 [append out x]
 		--assert "abcdebcdecde" == out
 
+	--test-- "SELF inside a FOR block"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/1529
+		--assert same? 'self for i 1 1 1 ['self]
+
 ===end-group===
 
 
@@ -866,6 +870,10 @@ Rebol [
 		--assert b = [1x1 2x1 1x2 2x2]
 		--assert b = collect [repeat x 2x2 [keep x]]
 
+	--test-- "SELF inside a FOR block"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/1529
+		--assert same? 'self repeat n 1 ['self]
+
 ===end-group===