diff --git a/tests/auto/qml/qmldesigner/bauhaustests/run_test.pl b/tests/auto/qml/qmldesigner/bauhaustests/run_test.pl
new file mode 100755
index 0000000000000000000000000000000000000000..5de4383b64a8566dd16fd6cb9a1633c7207384fc
--- /dev/null
+++ b/tests/auto/qml/qmldesigner/bauhaustests/run_test.pl
@@ -0,0 +1,7 @@
+#!/usr/bin/perl
+
+($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime();
+$filename = "$yearOffset-$month-$dayOfMonth.log";
+
+system("git rev-parse HEAD >$filename");
+system("./tst_bauhaus >$filename");