TEST: Oldes/Rebol-issues#1984

Oldes · Oldes · commit eabca3e2a4bf · 2022-09-22T17:09:21.000+02:00
diff --git a/src/tests/units/series-test.r3 b/src/tests/units/series-test.r3
@@ -2168,6 +2168,9 @@ Rebol [
 		error? e: try [union/skip [2 1][2 1] -2]
 		e/id = 'out-of-range
 	]
+--test-- "union - first-wins"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/1984
+	--assert 1 = get first union reduce [in construct [a: 1] 'a] reduce [in construct [a: 2] 'a]
 
 ===end-group===
 

Original file line number	Diff line number	Diff line change
`@@ -2168,6 +2168,9 @@ Rebol [`
`2168`	`2168`	`error? e: try [union/skip [2 1][2 1] -2]`
`2169`	`2169`	`e/id = 'out-of-range`
`2170`	`2170`	`]`
	`2171`	`+--test-- "union - first-wins"`
	`2172`	`+ ;@@ https://github.com/Oldes/Rebol-issues/issues/1984`
	`2173`	`+ --assert 1 = get first union reduce [in construct [a: 1] 'a] reduce [in construct [a: 2] 'a]`
`2171`	`2174`
`2172`	`2175`	`===end-group===`
`2173`	`2176`