Adapt tests for safeguard_properties()

Author: aedart

tests/unit/helpers/safeguard_properties_test.cmake

@@ -1,5 +1,6 @@
 include("rsp/testing")
 include("rsp/helpers")
+include("rsp/debug")
 
 define_test_case(
     "Safeguard Properties Test"
@@ -13,18 +14,14 @@ function(can_safeguard_properties)
     set(c "ccc")
 
     function(risky_callback)
+        message(VERBOSE "risky callback invoked (function)")
+
         set(a "1" PARENT_SCOPE)
         set(b "2" PARENT_SCOPE)
         set(c "3" PARENT_SCOPE)
     endfunction()
 
-    safeguard_properties(
-        CALLBACK "risky_callback"
-        PROPERTIES
-            a
-            b
-            c
-    )
+    safeguard_properties("risky_callback" "a;b;c")
 
     # Debug
     #risky_callback()
@@ -33,3 +30,28 @@ function(can_safeguard_properties)
     assert_string_equals("bbb" ${b} MESSAGE "Property b was modified")
     assert_string_equals("ccc" ${c} MESSAGE "Property c was modified")
 endfunction()
+
+define_test("unguarded properties can be changed" "unguarded_properties_can_be_changed")
+function(unguarded_properties_can_be_changed)
+    set(a "aaa")
+    set(b "bbb")
+    set(c "ccc")
+
+    macro(risky_callback)
+        message(NOTICE "risky callback invoked (macro)")
+
+        set(a "1")
+        set(b "2")
+        set(c "3")
+    endmacro()
+
+    # Note: "c" is NOT safeguarded here
+    safeguard_properties("risky_callback" "a;b")
+
+    # Debug
+    #risky_callback()
+
+    assert_string_equals("aaa" ${a} MESSAGE "Property a was modified")
+    assert_string_equals("bbb" ${b} MESSAGE "Property b was modified")
+    assert_string_equals("3" ${c} MESSAGE "Property c SHOULD had been modified")
+endfunction()