TEST: fix with proper protected block value tests and added test for SWAP

Author: Oldes

src/tests/units/protect-test.r3

@@ -11,7 +11,7 @@ Rebol [
 ===start-group=== "Checks if protected data are really protected"
 	bin: #{cafe}
 	str:  "cafe"
-	blk:  "cafe"
+	blk: ["cafe"]
 	protect/values [bin str blk]
 
 	is-protected-error?: function[code][
@@ -35,6 +35,10 @@ Rebol [
 	--test-- "random string" --assert is-protected-error? [random str]
 	--test-- "random binary" --assert is-protected-error? [random bin]
 
+	--test-- "swap block"  --assert is-protected-error? [swap blk [0]]
+	--test-- "swap string" --assert is-protected-error? [swap str "0bad"]
+	--test-- "swap binary" --assert is-protected-error? [swap bin #{0bad}]
+
 ===end-group===
 
 ~~~end-file~~~