From df41665cb23ea808d472d0de6afa582a87c67378 Mon Sep 17 00:00:00 2001 From: Daniel Collins Date: Tue, 20 Jun 2017 02:05:54 +0100 Subject: [PATCH] Fiddle with sleeps in DirectPlay tests. Some asynchronous calls didn't have pauses after them, likely to fail when running on a heavily loaded machine. --- tests/50-dplay.t | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) diff --git a/tests/50-dplay.t b/tests/50-dplay.t index f06be9d..024c107 100644 --- a/tests/50-dplay.t +++ b/tests/50-dplay.t @@ -88,7 +88,9 @@ describe "A single DirectPlay client" => sub { my ($host, $client) = $single_client_common_init->(); - my $host_player = $host->create_player("host"); + my $host_player = $host->create_player("host"); + sleep(PROP_TIME); + my %client_players = $client->list_players(); cmp_deeply(\%client_players, { @@ -101,7 +103,9 @@ describe "A single DirectPlay client" => sub my ($host, $client) = $single_client_common_init->(); my $client_player = $client->create_player("client"); - my %host_players = $host->list_players(); + sleep(PROP_TIME); + + my %host_players = $host->list_players(); cmp_deeply(\%host_players, { $client_player => "client", @@ -114,6 +118,7 @@ describe "A single DirectPlay client" => sub my $host_player = $host->create_player("host"); my $client_player = $client->create_player("client"); + sleep(PROP_TIME); $host->send_message($host_player, $client_player, "foreordainment"); @@ -142,6 +147,7 @@ describe "A single DirectPlay client" => sub my $host_player = $host->create_player("host"); my $client_player = $client->create_player("client"); + sleep(PROP_TIME); $client->send_message($client_player, $host_player, "iskenderun"); @@ -250,6 +256,7 @@ describe "Concurrent DirectPlay clients" => sub my $host_player = $host->create_player("host"); my $ca_player = $client_a->create_player("client_a"); my $cb_player = $client_b->create_player("client_b"); + sleep(PROP_TIME); $host->send_message($host_player, $ca_player, "myrmecophilous"); $host->send_message($host_player, $cb_player, "indigestibly"); @@ -289,10 +296,9 @@ describe "Concurrent DirectPlay clients" => sub my $host_player = $host->create_player("host"); my $ca_player = $client_a->create_player("client_a"); my $cb_player = $client_b->create_player("client_b"); - - $client_a->send_message($ca_player, $host_player, "unvivid"); sleep(PROP_TIME); + $client_a->send_message($ca_player, $host_player, "unvivid"); $client_b->send_message($cb_player, $host_player, "matrilateral"); sleep(PROP_TIME); @@ -328,6 +334,7 @@ describe "Concurrent DirectPlay clients" => sub my $host_player = $host->create_player("host"); my $ca_player = $client_a->create_player("client_a"); my $cb_player = $client_b->create_player("client_b"); + sleep(PROP_TIME); $client_a->send_message($ca_player, $cb_player, "postpuberty"); $client_b->send_message($cb_player, $ca_player, "veridic"); @@ -367,10 +374,9 @@ describe "Concurrent DirectPlay clients" => sub my $host_player = $host->create_player("host"); my $ca_player = $client_a->create_player("client_a"); my $cb_player = $client_b->create_player("client_b"); - - $client_a->send_message($ca_player, DPID_ALLPLAYERS, "kendrew"); sleep(PROP_TIME); + $client_a->send_message($ca_player, DPID_ALLPLAYERS, "kendrew"); $client_b->send_message($cb_player, DPID_ALLPLAYERS, "derivation"); sleep(PROP_TIME);