diff --git a/CMakeLists.txt b/CMakeLists.txt
index b6f95fcd5..337458dcf 100644
--- a/CMakeLists.txt
+++ b/CMakeLists.txt
@@ -309,6 +309,7 @@ endif()
 
 if(RUN_TESTS)
   list(APPEND devilutionx_SRCS
+    SourceT/control.cpp
     SourceT/automap.cpp)
 endif()
 
diff --git a/SourceT/control.cpp b/SourceT/control.cpp
new file mode 100644
index 000000000..438a20448
--- /dev/null
+++ b/SourceT/control.cpp
@@ -0,0 +1,24 @@
+#include <gtest/gtest.h>
+#include "devilution.h"
+
+TEST(Control, SetSpell) {
+	dvl::pnumlines = 1;
+	dvl::pinfoflag = true;
+	dvl::pSpell = dvl::SPL_FIREBOLT;
+	dvl::pSplType = dvl::RSPLTYPE_CHARGES;
+	dvl::SetSpell();
+	ASSERT_EQ(dvl::spselflag, false);
+	ASSERT_EQ(dvl::plr[dvl::myplr]._pRSpell, dvl::SPL_FIREBOLT);
+	ASSERT_EQ(dvl::plr[dvl::myplr]._pRSplType, dvl::RSPLTYPE_CHARGES);
+	ASSERT_EQ(dvl::pnumlines, 0);
+	ASSERT_EQ(dvl::pinfoflag, false);
+	ASSERT_EQ(dvl::force_redraw, 255);
+}
+
+TEST(Control, ClearPanel) {
+	dvl::pnumlines = 1;
+	dvl::pinfoflag = true;
+	dvl::ClearPanel();
+	ASSERT_EQ(dvl::pnumlines, 0);
+	ASSERT_EQ(dvl::pinfoflag, false);
+}