Implement control_delete_this_clone

Author: adazem009

src/dev/blocks/controlblocks.cpp

@@ -40,6 +40,7 @@ void ControlBlocks::registerBlocks(IEngine *engine)
     engine->addCompileFunction(this, "control_for_each", &compileForEach);
     engine->addCompileFunction(this, "control_start_as_clone", &compileStartAsClone);
     engine->addCompileFunction(this, "control_create_clone_of", &compileCreateCloneOf);
+    engine->addCompileFunction(this, "control_delete_this_clone", &compileDeleteThisClone);
 }
 
 CompilerValue *ControlBlocks::compileForever(Compiler *compiler)
@@ -167,6 +168,12 @@ CompilerValue *ControlBlocks::compileCreateCloneOf(Compiler *compiler)
     return nullptr;
 }
 
+CompilerValue *ControlBlocks::compileDeleteThisClone(Compiler *compiler)
+{
+    compiler->addTargetFunctionCall("control_delete_this_clone");
+    return nullptr;
+}
+
 extern "C" void control_stop_all(ExecutionContext *ctx)
 {
     ctx->engine()->stop();
@@ -216,3 +223,11 @@ extern "C" void control_create_clone(ExecutionContext *ctx, const char *spriteNa
             static_cast<Sprite *>(target)->clone();
     }
 }
+
+extern "C" void control_delete_this_clone(Target *target)
+{
+    if (!target->isStage()) {
+        target->engine()->stopTarget(target, nullptr);
+        static_cast<Sprite *>(target)->deleteClone();
+    }
+}

src/dev/blocks/controlblocks.h

@@ -28,6 +28,7 @@ class ControlBlocks : public IExtension
         static CompilerValue *compileForEach(Compiler *compiler);
         static CompilerValue *compileStartAsClone(Compiler *compiler);
         static CompilerValue *compileCreateCloneOf(Compiler *compiler);
+        static CompilerValue *compileDeleteThisClone(Compiler *compiler);
 };
 
 } // namespace libscratchcpp

test/dev/blocks/control_blocks_test.cpp

@@ -1063,3 +1063,53 @@ TEST_F(ControlBlocksTest, CreateCloneOfStage)
         thread.run();
     }
 }
+
+TEST_F(ControlBlocksTest, DeleteThisClone)
+{
+    Sprite sprite;
+    sprite.setEngine(&m_engineMock);
+
+    std::shared_ptr<Sprite> clone;
+    EXPECT_CALL(m_engineMock, cloneLimit()).WillRepeatedly(Return(-1));
+    EXPECT_CALL(m_engineMock, initClone(_)).WillOnce(SaveArg<0>(&clone));
+    EXPECT_CALL(m_engineMock, moveDrawableBehindOther(_, &sprite));
+    EXPECT_CALL(m_engineMock, requestRedraw());
+    sprite.clone();
+    ASSERT_TRUE(clone);
+
+    ScriptBuilder builder(m_extension.get(), m_engine, clone);
+
+    builder.addBlock("control_delete_this_clone");
+    auto block = builder.currentBlock();
+
+    Compiler compiler(&m_engineMock, clone.get());
+    auto code = compiler.compile(block);
+    Script script(clone.get(), block, &m_engineMock);
+    script.setCode(code);
+    Thread thread(clone.get(), &m_engineMock, &script);
+
+    EXPECT_CALL(m_engineMock, stopTarget(clone.get(), nullptr));
+    EXPECT_CALL(m_engineMock, deinitClone(clone));
+    thread.run();
+}
+
+TEST_F(ControlBlocksTest, DeleteThisCloneStage)
+{
+    auto target = std::make_shared<Stage>();
+    target->setEngine(&m_engineMock);
+
+    ScriptBuilder builder(m_extension.get(), m_engine, target);
+
+    builder.addBlock("control_delete_this_clone");
+    auto block = builder.currentBlock();
+
+    Compiler compiler(&m_engineMock, target.get());
+    auto code = compiler.compile(block);
+    Script script(target.get(), block, &m_engineMock);
+    script.setCode(code);
+    Thread thread(target.get(), &m_engineMock, &script);
+
+    EXPECT_CALL(m_engineMock, stopTarget).Times(0);
+    EXPECT_CALL(m_engineMock, deinitClone).Times(0);
+    thread.run();
+}