TEST: added test for: metaeducation/rebol-issues#1779

Author: Oldes

src/tests/units/protect-test.r3

@@ -9,8 +9,10 @@ Rebol [
 ~~~start-file~~~ "Protect"
 
 ===start-group=== "Checks if protected data are really protected"
-	data: #{cafe}
-	protect data
+	bin: #{cafe}
+	str:  "cafe"
+	blk:  "cafe"
+	protect/values [bin str blk]
 
 	is-protected-error?: function[code][
 		true? all [
@@ -19,15 +21,19 @@ Rebol [
 		]
 	]
 
-	--test-- "clear"   --assert is-protected-error? [clear data]
-	--test-- "append"  --assert is-protected-error? [append data #{0bad}]
-	--test-- "insert"  --assert is-protected-error? [insert data #{0bad}]
+	--test-- "clear"   --assert is-protected-error? [clear bin]
+	--test-- "append"  --assert is-protected-error? [append bin #{0bad}]
+	--test-- "insert"  --assert is-protected-error? [insert bin #{0bad}]
 
 	;@@ https://github.com/rebol/rebol-issues/issues/2321
-	--test-- "encloak" --assert is-protected-error? [encloak data "key"]
-	--test-- "decloak" --assert is-protected-error? [decloak data "key"]
+	--test-- "encloak" --assert is-protected-error? [encloak bin "key"]
+	--test-- "decloak" --assert is-protected-error? [decloak bin "key"]
 	;@@ https://github.com/rebol/rebol-issues/issues/1780
-	--test-- "remove-each" --assert is-protected-error? [remove-each a data [a < 3]]
+	--test-- "remove-each" --assert is-protected-error? [remove-each a bin [a < 3]]
+	;@@ https://github.com/rebol/rebol-issues/issues/1780
+	--test-- "random block"  --assert is-protected-error? [random blk]
+	--test-- "random string" --assert is-protected-error? [random str]
+	--test-- "random binary" --assert is-protected-error? [random bin]
 
 ===end-group===