From: Maik Fischer Date: Mon, 21 Nov 2011 22:37:04 +0000 (+0100) Subject: testcases: use global $x in wait_for_event, drop $x parameter X-Git-Tag: 4.2~229^2~5 X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=db6de84d0b7a1e5c9b8cba8ff7a75a69d509ef56;p=i3%2Fi3 testcases: use global $x in wait_for_event, drop $x parameter --- diff --git a/testcases/lib/i3test.pm b/testcases/lib/i3test.pm index f5cb0602..304e0738 100644 --- a/testcases/lib/i3test.pm +++ b/testcases/lib/i3test.pm @@ -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 window’s 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; diff --git a/testcases/t/158-wm_take_focus.t b/testcases/t/158-wm_take_focus.t index 3da8d907..0580b9c9 100644 --- a/testcases/t/158-wm_take_focus.t +++ b/testcases/t/158-wm_take_focus.t @@ -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);