Spezifikationsabgleich und Regressionsnachweise abschließen

crates/tb-vm/tests/project.rs

@@ -249,7 +249,7 @@ fn beschaedigte_container_werden_vor_der_ausfuehrung_abgewiesen() {
     let mut duplicate = bytes.clone();
     duplicate[24..28].copy_from_slice(b"MODN");
     assert!(CompiledModule::from_tbc(&duplicate).is_err());
-    for mutation in 0..8 {
+    for mutation in 0..10 {
         let mut bad = CompiledModule::from_tbc(&bytes).unwrap();
         match mutation {
             0 => bad.sources[0].module = u16::MAX,
@@ -265,6 +265,23 @@ fn beschaedigte_container_werden_vor_der_ausfuehrung_abgewiesen() {
                 );
             }
             7 => bad.procs[0].code.push(Instr::Source(u32::MAX, 1)),
+            8 | 9 => {
+                let initial = &mut bad.form_initial[1];
+                let parent = tb_frontend::forms::property(
+                    tb_frontend::forms::ObjectClass::TextBox,
+                    "PARENT",
+                )
+                .unwrap()
+                .0;
+                initial.properties.insert(
+                    parent,
+                    tb_ui::forms::PropertyValue::Object(Some(if mutation == 8 {
+                        (initial.object, Some(initial.index))
+                    } else {
+                        (0, Some(99))
+                    })),
+                );
+            }
             _ => unreachable!(),
         }
         assert!(