Extra set-parent tests

Author: mikera

convex-core/src/test/java/convex/core/lang/CoreTest.java

@@ -4933,12 +4933,18 @@ public void testSetParent() {
 		// set-parent
 		assertEquals(VILLAIN, eval("(set-parent "+VILLAIN+")"));
 		assertEquals(VILLAIN, eval("(do (set-parent "+VILLAIN+") *parent*)"));
+		
+		// Behaviour for a deployed actor with *caller* as parent
+		assertEquals(CVMLong.ONE, eval("(do (def a 1) (def actor (deploy '(set-parent *caller*))) actor/a)"));
+		assertUndeclaredError(step("(do (def a 1) (def actor (deploy '(set-parent *caller*))) actor/b)")); 
+
 
 		// non-existent parent accounts
 		assertNobodyError(step("(set-parent #99999)")); 
 
 		// protection against account being it's own parent
 		assertArgumentError(step("(set-parent *address*)")); 
+		
 
 		assertCastError(step("(set-parent :foo)"));
 		assertCastError(step("(set-parent [#8 :foo])"));