TEST: Oldes/Rebol-issues#2044

Oldes · Apr 1, 2020 · abe3727 · abe3727
1 parent ae1328d
commit abe3727
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/src/tests/units/func-test.r3 b/src/tests/units/func-test.r3
@@ -34,6 +34,7 @@ Rebol [
 ===start-group=== "Other issues"
 
 --test-- "issue-2025"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/2025
 	f: make function! reduce [[x /local x-v y-v] body: [
 	    x-v: either error? try [get/any 'x] [
 	        "x does not have a value"
@@ -50,6 +51,14 @@ Rebol [
 	g: make function! reduce [[y /local x-v y-v] body]
 
 	--assert error? try [f 1]
+
+--test-- "issue-2044"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/2044
+	body: [x + y]
+    f: make function! reduce [[x] body]
+    g: make function! reduce [[y] body]
+    --assert error? try [f 1]
+
 ===end-group===
 
 ~~~end-file~~~