TEST: Oldes/Rebol-issues#2549

Oldes · Jun 21, 2023 · 8cdcfcc · 8cdcfcc
1 parent 4dc5b41
commit 8cdcfcc
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/tests/units/evaluation-test.r3 b/src/tests/units/evaluation-test.r3
@@ -780,7 +780,11 @@ Rebol [
 	--test-- "catch/quit/name"
 	;@@ https://github.com/Oldes/Rebol-issues/issues/2549
 		--assert all [
-			'foo = catch/quit/name [a: 1 throw/name 'foo 'name a: 2] 'name
+			unset? catch/quit/name [a: 1 quit a: 2] 'name
+			a = 1
+		]
+		--assert all [
+			0 = catch/quit/name [a: 1  throw/name 0 'name  a: 2] 'name
 			a = 1
 		]