diff --git a/testcases/complete-run.pl b/testcases/complete-run.pl
index 9592c767..61f2ef52 100755
--- a/testcases/complete-run.pl
+++ b/testcases/complete-run.pl
@@ -19,7 +19,7 @@ use Time::HiRes qw(time);
 use IO::Handle;
 # these are shipped with the testsuite
 use lib qw(lib);
-use StartXDummy;
+use StartXServer;
 use StatusLine;
 use TestWorker;
 # the following modules are not shipped with Perl
@@ -133,7 +133,7 @@ for my $display (@displays) {
 
 # Read previous timing information, if available. We will be able to roughly
 # predict the test duration and schedule a good order for the tests.
-my $timingsjson = StartXDummy::slurp('.last_run_timings.json');
+my $timingsjson = StartXServer::slurp('.last_run_timings.json');
 %timings = %{decode_json($timingsjson)} if length($timingsjson) > 0;
 
 # Re-order the files so that those which took the longest time in the previous
@@ -222,7 +222,7 @@ printf("\t%s with %.2f seconds\n", $_, $timings{$_})
 if ($numtests == 1) {
     say '';
     say 'Test output:';
-    say StartXDummy::slurp($logfile);
+    say StartXServer::slurp($logfile);
 }
 
 END { cleanup() }
diff --git a/testcases/lib/StartXDummy.pm b/testcases/lib/StartXServer.pm
similarity index 99%
rename from testcases/lib/StartXDummy.pm
rename to testcases/lib/StartXServer.pm
index 444f630a..032f58c6 100644
--- a/testcases/lib/StartXDummy.pm
+++ b/testcases/lib/StartXServer.pm
@@ -1,4 +1,4 @@
-package StartXDummy;
+package StartXServer;
 # vim:ts=4:sw=4:expandtab
 
 use strict;