From ecca0baff3c631e2468713e4aecf04b11eb43ef0 Mon Sep 17 00:00:00 2001 From: Tony Crisci Date: Sat, 4 Oct 2014 15:01:22 -0400 Subject: [PATCH] Testcases: rename StartXDummy to StartXServer Rename the package StartXDummy to StartXServer in the testcases library because XDummy is no longer used. No logic changes. --- testcases/complete-run.pl | 6 +++--- testcases/lib/{StartXDummy.pm => StartXServer.pm} | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) rename testcases/lib/{StartXDummy.pm => StartXServer.pm} (99%) 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; -- 2.39.5