Testcases: rename StartXDummy to StartXServer
Rename the package StartXDummy to StartXServer in the testcases library because XDummy is no longer used. No logic changes.
This commit is contained in:
parent
6ba7728136
commit
ecca0baff3
@ -19,7 +19,7 @@ use Time::HiRes qw(time);
|
|||||||
use IO::Handle;
|
use IO::Handle;
|
||||||
# these are shipped with the testsuite
|
# these are shipped with the testsuite
|
||||||
use lib qw(lib);
|
use lib qw(lib);
|
||||||
use StartXDummy;
|
use StartXServer;
|
||||||
use StatusLine;
|
use StatusLine;
|
||||||
use TestWorker;
|
use TestWorker;
|
||||||
# the following modules are not shipped with Perl
|
# 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
|
# Read previous timing information, if available. We will be able to roughly
|
||||||
# predict the test duration and schedule a good order for the tests.
|
# 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;
|
%timings = %{decode_json($timingsjson)} if length($timingsjson) > 0;
|
||||||
|
|
||||||
# Re-order the files so that those which took the longest time in the previous
|
# 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) {
|
if ($numtests == 1) {
|
||||||
say '';
|
say '';
|
||||||
say 'Test output:';
|
say 'Test output:';
|
||||||
say StartXDummy::slurp($logfile);
|
say StartXServer::slurp($logfile);
|
||||||
}
|
}
|
||||||
|
|
||||||
END { cleanup() }
|
END { cleanup() }
|
||||||
|
@ -1,4 +1,4 @@
|
|||||||
package StartXDummy;
|
package StartXServer;
|
||||||
# vim:ts=4:sw=4:expandtab
|
# vim:ts=4:sw=4:expandtab
|
||||||
|
|
||||||
use strict;
|
use strict;
|
Loading…
Reference in New Issue
Block a user