testcases: use global $x in wait_for_event, drop $x parameter

This commit is contained in:
Maik Fischer 2011-11-21 23:37:04 +01:00 committed by Michael Stapelberg
parent 30ea33decb
commit db6de84d0b
2 changed files with 7 additions and 9 deletions

View File

@ -90,7 +90,7 @@ __
# wait_for_event $x, 0.25, sub { $_[0]->{response_type} == MAP_NOTIFY };
#
sub wait_for_event {
my ($x, $timeout, $cb) = @_;
my ($timeout, $cb) = @_;
my $cv = AE::cv;
@ -122,16 +122,14 @@ sub wait_for_event {
# thin wrapper around wait_for_event which waits for MAP_NOTIFY
# make sure to include 'structure_notify' in the windows event_mask attribute
sub wait_for_map {
my ($x) = @_;
wait_for_event $x, 2, sub { $_[0]->{response_type} == MAP_NOTIFY };
wait_for_event 2, sub { $_[0]->{response_type} == MAP_NOTIFY };
}
# Wrapper around wait_for_event which waits for UNMAP_NOTIFY. Also calls
# sync_with_i3 to make sure i3 also picked up and processed the UnmapNotify
# event.
sub wait_for_unmap {
my ($x) = @_;
wait_for_event $x, 2, sub { $_[0]->{response_type} == UNMAP_NOTIFY };
wait_for_event 2, sub { $_[0]->{response_type} == UNMAP_NOTIFY };
sync_with_i3($x);
}
@ -334,7 +332,7 @@ sub sync_with_i3 {
$_sync_window->map;
wait_for_event $x, 2, sub { $_[0]->{response_type} == MAP_NOTIFY };
wait_for_event 2, sub { $_[0]->{response_type} == MAP_NOTIFY };
}
my $root = $x->get_root_window();
@ -360,7 +358,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, 2, sub {
return wait_for_event 2, sub {
my ($event) = @_;
# TODO: const
return 0 unless $event->{response_type} == 161;

View File

@ -10,7 +10,7 @@ subtest 'Window without WM_TAKE_FOCUS', sub {
my $window = open_window($x);
ok(!wait_for_event($x, 1, sub { $_[0]->{response_type} == 161 }), 'did not receive ClientMessage');
ok(!wait_for_event(1, sub { $_[0]->{response_type} == 161 }), 'did not receive ClientMessage');
done_testing;
};
@ -27,7 +27,7 @@ subtest 'Window with WM_TAKE_FOCUS', sub {
$window->map;
ok(wait_for_event($x, 1, sub {
ok(wait_for_event(1, sub {
return 0 unless $_[0]->{response_type} == 161;
my ($data, $time) = unpack("L2", $_[0]->{data});
return ($data == $take_focus->id);