Haskell Syntax Test and Haskell Runtime Test for Common Error Clustering

src/main/java/de/tuclausthal/submissioninterface/persistence/dao/TestDAOIf.java

@@ -24,6 +24,8 @@
 import de.tuclausthal.submissioninterface.persistence.datamodel.CommentsMetricTest;
 import de.tuclausthal.submissioninterface.persistence.datamodel.CompileTest;
 import de.tuclausthal.submissioninterface.persistence.datamodel.DockerTest;
+import de.tuclausthal.submissioninterface.persistence.datamodel.HaskellSyntaxTest;
+import de.tuclausthal.submissioninterface.persistence.datamodel.HaskellRuntimeTest;
 import de.tuclausthal.submissioninterface.persistence.datamodel.JUnitTest;
 import de.tuclausthal.submissioninterface.persistence.datamodel.JavaAdvancedIOTest;
 import de.tuclausthal.submissioninterface.persistence.datamodel.Task;
@@ -62,6 +64,10 @@ public interface TestDAOIf {
 
 	DockerTest createDockerTest(Task task);
 
+	HaskellSyntaxTest createHaskellSyntaxTest(Task task);
+
+	HaskellRuntimeTest createHaskellRuntimeTest(Task task);
+
 	ChecklistTest createChecklistTest(Task task);
 
 	/**

src/main/java/de/tuclausthal/submissioninterface/persistence/dao/impl/TestDAO.java

@@ -35,6 +35,8 @@
 import de.tuclausthal.submissioninterface.persistence.datamodel.CommentsMetricTest;
 import de.tuclausthal.submissioninterface.persistence.datamodel.CompileTest;
 import de.tuclausthal.submissioninterface.persistence.datamodel.DockerTest;
+import de.tuclausthal.submissioninterface.persistence.datamodel.HaskellSyntaxTest;
+import de.tuclausthal.submissioninterface.persistence.datamodel.HaskellRuntimeTest;
 import de.tuclausthal.submissioninterface.persistence.datamodel.JUnitTest;
 import de.tuclausthal.submissioninterface.persistence.datamodel.JavaAdvancedIOTest;
 import de.tuclausthal.submissioninterface.persistence.datamodel.Task;
@@ -162,6 +164,24 @@ public DockerTest createDockerTest(Task task) {
 		return test;
 	}
 
+	@Override
+	public HaskellSyntaxTest createHaskellSyntaxTest(Task task) {
+		Session session = getSession();
+		HaskellSyntaxTest test = new HaskellSyntaxTest();
+		test.setTask(task);
+		session.persist(test);
+		return test;
+	}
+
+	@Override
+	public HaskellRuntimeTest createHaskellRuntimeTest(Task task) {
+		Session session = getSession();
+		HaskellRuntimeTest test = new HaskellRuntimeTest();
+		test.setTask(task);
+		session.persist(test);
+		return test;
+	}
+
 	@Override
 	public ChecklistTest createChecklistTest(Task task) {
 		Session session = getSession();

src/main/java/de/tuclausthal/submissioninterface/persistence/datamodel/HaskellRuntimeTest.java

@@ -0,0 +1,38 @@
+/*
+ * Copyright 2025 Sven Strickroth <[email protected]>
+ * Copyright 2025 Christian Wagner <[email protected]>
+ *
+ * This file is part of the GATE.
+ *
+ * GATE is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License version 3 as
+ * published by the Free Software Foundation.
+ *
+ * GATE is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with GATE. If not, see <http://www.gnu.org/licenses/>.
+ */
+
+package de.tuclausthal.submissioninterface.persistence.datamodel;
+
+import de.tuclausthal.submissioninterface.testframework.tests.AbstractTest;
+import jakarta.persistence.Entity;
+import jakarta.persistence.Transient;
+
+
+/**
+ * Haskell runtime test, extends the DockerTest by automatically generating haskell testcases and by clustering
+ * @author Christian Wagner
+ */
+@Entity
+public class HaskellRuntimeTest extends DockerTest {
+	@Override
+	@Transient
+	public AbstractTest<DockerTest> getTestImpl() {
+		return new de.tuclausthal.submissioninterface.testframework.tests.impl.HaskellRuntimeTest(this);
+	}
+}

src/main/java/de/tuclausthal/submissioninterface/persistence/datamodel/HaskellSyntaxTest.java

@@ -0,0 +1,34 @@
+/*
+ * Copyright 2025 Sven Strickroth <[email protected]>
+ * Copyright 2025 Esat Avci <[email protected]>
+ *
+ * This file is part of the GATE.
+ *
+ * GATE is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License version 3 as
+ * published by the Free Software Foundation.
+ *
+ * GATE is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with GATE. If not, see <http://www.gnu.org/licenses/>.
+ */
+package de.tuclausthal.submissioninterface.persistence.datamodel;
+
+import jakarta.persistence.Entity;
+import jakarta.persistence.Transient;
+
+
+import de.tuclausthal.submissioninterface.testframework.tests.AbstractTest;
+
+@Entity
+public class HaskellSyntaxTest extends DockerTest {
+    @Override
+    @Transient
+    public AbstractTest<DockerTest> getTestImpl() {
+        return new de.tuclausthal.submissioninterface.testframework.tests.impl.HaskellSyntaxTest(this);
+    }
+}

src/main/java/de/tuclausthal/submissioninterface/servlets/controller/DockerTestManager.java

@@ -33,13 +33,15 @@
 import de.tuclausthal.submissioninterface.persistence.dao.ParticipationDAOIf;
 import de.tuclausthal.submissioninterface.persistence.dao.TestDAOIf;
 import de.tuclausthal.submissioninterface.persistence.datamodel.DockerTest;
+import de.tuclausthal.submissioninterface.persistence.datamodel.HaskellRuntimeTest;
 import de.tuclausthal.submissioninterface.persistence.datamodel.DockerTestStep;
 import de.tuclausthal.submissioninterface.persistence.datamodel.Participation;
 import de.tuclausthal.submissioninterface.persistence.datamodel.ParticipationRole;
 import de.tuclausthal.submissioninterface.persistence.datamodel.Test;
 import de.tuclausthal.submissioninterface.servlets.GATEController;
 import de.tuclausthal.submissioninterface.servlets.RequestAdapter;
 import de.tuclausthal.submissioninterface.servlets.view.DockerTestManagerOverView;
+import de.tuclausthal.submissioninterface.servlets.view.HaskellRuntimeTestManagerView;
 import de.tuclausthal.submissioninterface.servlets.view.MessageView;
 import de.tuclausthal.submissioninterface.util.Util;
 
@@ -71,7 +73,11 @@ public void doGet(HttpServletRequest request, HttpServletResponse response) thro
 		}
 
 		request.setAttribute("test", test);
-		getServletContext().getNamedDispatcher(DockerTestManagerOverView.class.getSimpleName()).forward(request, response);
+
+		String testManagerViewClassSimpleName = test instanceof HaskellRuntimeTest ?
+				HaskellRuntimeTestManagerView.class.getSimpleName() : DockerTestManagerOverView.class.getSimpleName();
+
+		getServletContext().getNamedDispatcher(testManagerViewClassSimpleName).forward(request, response);
 	}
 
 	@Override
@@ -93,6 +99,9 @@ public void doPost(HttpServletRequest request, HttpServletResponse response) thr
 			return;
 		}
 
+		String testManagerClassSimpleName = test instanceof HaskellRuntimeTest ?
+				HaskellRuntimeTestManager.class.getSimpleName() : DockerTestManager.class.getSimpleName();
+
 		if ("edittest".equals(request.getParameter("action"))) {
 			Transaction tx = session.beginTransaction();
 			test.setTestTitle(request.getParameter("title"));
@@ -101,7 +110,7 @@ public void doPost(HttpServletRequest request, HttpServletResponse response) thr
 			test.setGiveDetailsToStudents(request.getParameter("giveDetailsToStudents") != null);
 			test.setPreparationShellCode(request.getParameter("preparationcode").replaceAll("\r\n", "\n"));
 			tx.commit();
-			response.sendRedirect(Util.generateRedirectURL(DockerTestManager.class.getSimpleName() + "?testid=" + test.getId(), response));
+			response.sendRedirect(Util.generateRedirectURL(testManagerClassSimpleName + "?testid=" + test.getId(), response));
 			return;
 		} else if ("addNewStep".equals(request.getParameter("action"))) {
 			String title = request.getParameter("title");
@@ -111,7 +120,7 @@ public void doPost(HttpServletRequest request, HttpServletResponse response) thr
 			Transaction tx = session.beginTransaction();
 			session.persist(newStep);
 			tx.commit();
-			response.sendRedirect(Util.generateRedirectURL(DockerTestManager.class.getSimpleName() + "?testid=" + test.getId(), response));
+			response.sendRedirect(Util.generateRedirectURL(testManagerClassSimpleName + "?testid=" + test.getId(), response));
 			return;
 		} else if ("updateStep".equals(request.getParameter("action"))) {
 			DockerTestStep step = null;
@@ -130,7 +139,7 @@ public void doPost(HttpServletRequest request, HttpServletResponse response) thr
 				step.setExpect(Objects.toString(request.getParameter("expect"), "").replaceAll("\r\n", "\n"));
 				tx.commit();
 			}
-			response.sendRedirect(Util.generateRedirectURL(DockerTestManager.class.getSimpleName() + "?testid=" + test.getId(), response));
+			response.sendRedirect(Util.generateRedirectURL(testManagerClassSimpleName + "?testid=" + test.getId(), response));
 			return;
 		} else if ("deleteStep".equals(request.getParameter("action"))) {
 			DockerTestStep step = null;
@@ -145,7 +154,7 @@ public void doPost(HttpServletRequest request, HttpServletResponse response) thr
 				session.remove(step);
 				tx.commit();
 			}
-			response.sendRedirect(Util.generateRedirectURL(DockerTestManager.class.getSimpleName() + "?testid=" + test.getId(), response));
+			response.sendRedirect(Util.generateRedirectURL(testManagerClassSimpleName + "?testid=" + test.getId(), response));
 			return;
 		}
 

src/main/java/de/tuclausthal/submissioninterface/servlets/controller/HaskellRuntimeTestManager.java

@@ -0,0 +1,51 @@
+/*
+ * Copyright 2025 Sven Strickroth <[email protected]>
+ * Copyright 2025 Christian Wagner <[email protected]>
+ *
+ * This file is part of the GATE.
+ *
+ * GATE is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License version 3 as
+ * published by the Free Software Foundation.
+ *
+ * GATE is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with GATE. If not, see <http://www.gnu.org/licenses/>.
+ */
+
+package de.tuclausthal.submissioninterface.servlets.controller;
+
+import de.tuclausthal.submissioninterface.servlets.GATEController;
+import jakarta.servlet.ServletException;
+import jakarta.servlet.http.HttpServlet;
+import jakarta.servlet.http.HttpServletRequest;
+import jakarta.servlet.http.HttpServletResponse;
+
+import java.io.IOException;
+import java.io.Serial;
+
+/**
+ * Controller-Servlet for clustering haskell submissions based on common errors (dynamic/runtime analysis).
+ * This servlet allows advisors to manage (add, edit, remove) test steps.
+ *
+ * @author Christian Wagner
+ */
+@GATEController
+public class HaskellRuntimeTestManager extends HttpServlet {
+    @Serial
+    private static final long serialVersionUID = 1L;
+
+    @Override
+    public void doGet(HttpServletRequest request, HttpServletResponse response) throws IOException, ServletException {
+        getServletContext().getNamedDispatcher(DockerTestManager.class.getSimpleName()).forward(request, response);
+    }
+
+    @Override
+    public void doPost(HttpServletRequest request, HttpServletResponse response) throws IOException, ServletException {
+        getServletContext().getNamedDispatcher(DockerTestManager.class.getSimpleName()).forward(request, response);
+    }
+}

src/main/java/de/tuclausthal/submissioninterface/servlets/controller/TestManager.java

@@ -41,6 +41,8 @@
 import de.tuclausthal.submissioninterface.persistence.datamodel.CommentsMetricTest;
 import de.tuclausthal.submissioninterface.persistence.datamodel.CompileTest;
 import de.tuclausthal.submissioninterface.persistence.datamodel.DockerTest;
+import de.tuclausthal.submissioninterface.persistence.datamodel.HaskellSyntaxTest;
+import de.tuclausthal.submissioninterface.persistence.datamodel.HaskellRuntimeTest;
 import de.tuclausthal.submissioninterface.persistence.datamodel.JUnitTest;
 import de.tuclausthal.submissioninterface.persistence.datamodel.JavaAdvancedIOTest;
 import de.tuclausthal.submissioninterface.persistence.datamodel.Participation;
@@ -153,6 +155,28 @@ public void doPost(HttpServletRequest request, HttpServletResponse response) thr
 			test.setPreparationShellCode(preparationcode.replaceAll("\r\n", "\n"));
 			session.getTransaction().commit();
 			response.sendRedirect(Util.generateRedirectURL(DockerTestManager.class.getSimpleName() + "?testid=" + test.getId(), response));
+		} else if ("saveNewTest".equals(request.getParameter("action")) && "haskellsyntax".equals(request.getParameter("type"))) {
+			session.beginTransaction();
+			TestDAOIf testDAO = DAOFactory.TestDAOIf(session);
+			HaskellSyntaxTest test = testDAO.createHaskellSyntaxTest(task);
+
+			int timesRunnableByStudents = Util.parseInteger(request.getParameter("timesRunnableByStudents"), 0);
+			boolean tutortest = request.getParameter("tutortest") != null;
+			String title = request.getParameter("title");
+			String description = request.getParameter("description");
+
+			test.setTimesRunnableByStudents(timesRunnableByStudents);
+			test.setForTutors(tutortest);
+			test.setTestTitle(title);
+			test.setTestDescription(description);
+			test.setGiveDetailsToStudents(request.getParameter("giveDetailsToStudents") != null);
+			test.setTimeout(15); // falls du es trotzdem festlegen willst
+			session.getTransaction().commit();
+
+			// Zurück zur Aufgabenübersicht (wie bei CompileTest)
+			response.sendRedirect(Util.generateRedirectURL(TaskManager.class.getSimpleName()
+					+ "?action=editTask&lecture=" + task.getTaskGroup().getLecture().getId()
+					+ "&taskid=" + task.getTaskid(), response));
 		} else if ("saveNewTest".equals(request.getParameter("action")) && "checklist".equals(request.getParameter("type"))) {
 			session.beginTransaction();
 			TestDAOIf testDAO = DAOFactory.TestDAOIf(session);
@@ -272,6 +296,27 @@ public void doPost(HttpServletRequest request, HttpServletResponse response) thr
 			test.setGiveDetailsToStudents(request.getParameter("giveDetailsToStudents") != null);
 			session.getTransaction().commit();
 			response.sendRedirect(Util.generateRedirectURL(TaskManager.class.getSimpleName() + "?action=editTask&lecture=" + task.getTaskGroup().getLecture().getId() + "&taskid=" + task.getTaskid(), response));
+		} else if ("saveNewTest".equals(request.getParameter("action")) && "haskellruntime".equals(request.getParameter("type"))) {
+			// TODO@CHW: make sure all parameters accessed by request.getParameter() are defined in HaskellRuntimeTestManagerView
+
+			session.beginTransaction();
+			TestDAOIf testDAO = DAOFactory.TestDAOIf(session);
+
+			HaskellRuntimeTest test = testDAO.createHaskellRuntimeTest(task);
+			test.setTimesRunnableByStudents(Util.parseInteger(request.getParameter("timesRunnableByStudents"), 0));
+			test.setForTutors(request.getParameter("tutortest") != null);
+			test.setTestTitle(request.getParameter("title"));
+			test.setTestDescription(request.getParameter("description"));
+			test.setTimeout(Util.parseInteger(request.getParameter("timeout"), 15));
+			test.setGiveDetailsToStudents(request.getParameter("giveDetailsToStudents") != null);
+			String preparationCode = request.getParameter("preparationcode");
+			if (preparationCode == null) preparationCode = "";
+			test.setPreparationShellCode(
+					preparationCode.replaceAll("\r\n", "\n")
+			);
+
+			session.getTransaction().commit();
+			response.sendRedirect(Util.generateRedirectURL(HaskellRuntimeTestManager.class.getSimpleName() + "?testid=" + test.getId(), response));
 		} else if ("deleteTest".equals(request.getParameter("action"))) {
 			TestDAOIf testDAO = DAOFactory.TestDAOIf(session);
 			session.beginTransaction();

src/main/java/de/tuclausthal/submissioninterface/servlets/view/DockerTestManagerOverView.java

@@ -92,7 +92,7 @@ public void doGet(HttpServletRequest request, HttpServletResponse response) thro
 		out.println("<h2>Testschritte</h2>");
 
 		for (DockerTestStep step : test.getTestSteps()) {
-			out.println("<h3>" + Util.escapeHTML(step.getTitle()) + "</h2>");
+			out.println("<h3>" + Util.escapeHTML(step.getTitle()) + "</h3>");
 			out.println("<form action=\"" + Util.generateHTMLLink("?", response) + "\" method=post>");
 			out.println("<input type=hidden name=testid value=\"" + test.getId() + "\">");
 			out.println("<input type=hidden name=teststepid value=\"" + step.getTeststepid() + "\">");
@@ -125,7 +125,7 @@ public void doGet(HttpServletRequest request, HttpServletResponse response) thro
 
 		out.println("<hr>");
 
-		out.println("<h3>Neuer Test-Schritt <a href=\"#\" onclick=\"toggleVisibility('teststephelp'); return false;\">(?)</a></h2>");
+		out.println("<h3>Neuer Test-Schritt <a href=\"#\" onclick=\"toggleVisibility('teststephelp'); return false;\">(?)</a></h3>");
 
 		out.println("<div style=\"display:none;\" id=teststephelp><b>Hilfe:</b><br>");
 		out.println("<p>Diese Art von Test erlaubt es beliebige einfache Ausgabe-Tests zu definieren. Mit dem Preparation-Code können vorbereitende Schritte als Bash-Skript programmiert werden. Ist dieser Schritt erfolgreich, werden die einzelnen Testschritte nacheinander aufgerufen, wobei für jeden Testschritt die Ausgabe auf STDOUT mit einem erwartetem Wert überprüft werden.</p>");