TEST: Oldes/Rebol-issues#2471

Oldes · Jul 23, 2022 · 1ea20ab · 1ea20ab
1 parent 29e86d5
commit 1ea20ab
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/src/tests/units/parse-test.r3 b/src/tests/units/parse-test.r3
@@ -202,6 +202,14 @@ Rebol [
 		[[1]] = parse [1] [collect [collect set a keep skip]]
 		a = [1]
 	]
+	a: none --assert all [
+		[[1]] = parse [1] [collect [collect set a [keep skip]]]
+		a = [1]
+	]
+	a: none --assert all [
+		[[1]] = parse [1] [collect [collect [set a keep skip]]] ;set is not related to collect!
+		a = 1
+	]
 	a: none --assert all [
 		#[true] = parse [1] [collect set a [collect set a keep skip]]
 		a = [1]
@@ -277,6 +285,14 @@ Rebol [
 		[[#"1"]] = parse "1" [collect [collect set a keep skip]]
 		a = [#"1"]
 	]
+	a: none --assert all [
+		[[#"1"]] = parse "1" [collect [collect set a [keep skip]]]
+		a = [#"1"]
+	]
+	a: none --assert all [
+		[[#"1"]] = parse "1" [collect [collect [set a keep skip]]] ;set is not related to collect!
+		a = #"1"
+	]
 	a: none --assert all [
 		#[true] = parse "1" [collect set a [collect set a keep skip]]
 		a = [#"1"]