tests: use a lot higher timeouts

This makes the tests more robust on a machine which is loaded.
Also, it makes the tests run (significantly) longer if anything goes wrong.
This commit is contained in:
Michael Stapelberg 2011-10-04 23:36:57 +01:00
parent 359717970d
commit 57484553e6
1 changed files with 4 additions and 4 deletions

View File

@ -115,7 +115,7 @@ sub wait_for_event {
# make sure to include 'structure_notify' in the windows event_mask attribute
sub wait_for_map {
my ($x) = @_;
wait_for_event $x, 1, sub { $_[0]->{response_type} == MAP_NOTIFY };
wait_for_event $x, 2, sub { $_[0]->{response_type} == MAP_NOTIFY };
}
# Wrapper around wait_for_event which waits for UNMAP_NOTIFY. Also calls
@ -123,7 +123,7 @@ sub wait_for_map {
# event.
sub wait_for_unmap {
my ($x) = @_;
wait_for_event $x, 1, sub { $_[0]->{response_type} == UNMAP_NOTIFY };
wait_for_event $x, 2, sub { $_[0]->{response_type} == UNMAP_NOTIFY };
sync_with_i3($x);
}
@ -325,7 +325,7 @@ sub sync_with_i3 {
$_sync_window->map;
wait_for_event $x, 0.5, sub { $_[0]->{response_type} == MAP_NOTIFY };
wait_for_event $x, 2, sub { $_[0]->{response_type} == MAP_NOTIFY };
}
my $root = $x->get_root_window();
@ -351,7 +351,7 @@ sub sync_with_i3 {
$x->send_event(0, $root, EVENT_MASK_SUBSTRUCTURE_REDIRECT, $msg);
# now wait until the reply is here
return wait_for_event $x, 1, sub {
return wait_for_event $x, 2, sub {
my ($event) = @_;
# TODO: const
return 0 unless $event->{response_type} == 161;