TEST: Oldes/Rebol-issues#1883

Oldes · Jul 4, 2022 · 39347f4 · 39347f4
1 parent d61afeb
commit 39347f4
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
@@ -178,6 +178,10 @@ Rebol [
  b: [print "OK"]
  --assert block? do 'b
 
+ --test-- "do set-word!"
+ ;@@ https://github.com/Oldes/Rebol-issues/issues/1883
+ --assert all [error? e: try [do quote a:] e/id = 'invalid-arg]
+
 ===end-group===
 
 ===start-group=== "do path!"
@@ -201,6 +205,10 @@ Rebol [
  --assert word? do first b
  --assert path? do second b
 
+ --test-- "do set-path!"
+ ;@@ https://github.com/Oldes/Rebol-issues/issues/1883
+ --assert all [error? e: try [do quote a/1:] e/id = 'invalid-arg]
+
 ===end-group===
 
 ===start-group=== "attempt"