TEST: Oldes/Rebol-issues#359

related to: Oldes/Rebol-issues#1771

Author: Oldes

src/tests/units/evaluation-test.r3

@@ -320,11 +320,16 @@ Rebol [
 
 	--test-- "reduce/only"
 		;@@ https://github.com/Oldes/Rebol-issues/issues/359
-		--assert [1 #[unset] 2] = reduce/only [1 no-such-word 2] []
-		--assert [1 #[unset] 2] = reduce/only [1 no-such-word 2] none
-		--assert [1 some-word 2] = reduce/only [1 some-word 2] [some-word]
+		--assert [1 2] = reduce/only [1 2] []
+		--assert [1 2] = reduce/only [1 2] none
 		--assert native? second reduce/only [1 now 2] none
 		--assert word?   second reduce/only [1 now 2] [now]
+		; it is not allowed to have unset reduced using reduce/only anymore!
+		;@@ https://github.com/Oldes/Rebol-issues/issues/1771
+		--assert all [error? e: try [ reduce/only [1 no-such-word 2] []   ] e/id = 'no-value]
+		--assert all [error? e: try [ reduce/only [1 no-such-word 2] none ] e/id = 'no-value]
+		; if the word is listed in the /only value, than it is ok:
+		--assert [1 no-such-word 2] = reduce/only [1 no-such-word 2] [no-such-word]
 
 	--test-- "reduce/into"
 		;@@ https://github.com/Oldes/Rebol-issues/issues/506