t/158-wm_take_focus.t: avoid shift on scalars

This feature is forbidden in Perl ≥ 5.24:

  Experimental shift on scalar is now forbidden at
  ./t/158-wm_take_focus.t line 94, near ");"
next
Michael Stapelberg 2016-09-26 17:29:27 +02:00
parent 47b84ca5ed
commit 8f9138fbad
1 changed files with 6 additions and 3 deletions

View File

@ -56,7 +56,8 @@ subtest 'Window without WM_TAKE_FOCUS', sub {
ok(!recv_take_focus($window), 'did not receive ClientMessage');
my $con = shift get_ws_content($ws);
my ($nodes) = get_ws_content($ws);
my $con = shift @$nodes;
ok($con->{focused}, 'con is focused');
done_testing;
@ -91,7 +92,8 @@ subtest 'Window with WM_TAKE_FOCUS and without InputHint', sub {
ok(!recv_take_focus($window), 'did not receive ClientMessage');
my $con = shift get_ws_content($ws);
my ($nodes) = get_ws_content($ws);
my $con = shift @$nodes;
ok($con->{focused}, 'con is focused');
done_testing;
@ -111,7 +113,8 @@ subtest 'Window with WM_TAKE_FOCUS and unspecified InputHint', sub {
ok(!recv_take_focus($window), 'did not receive ClientMessage');
my $con = shift get_ws_content($ws);
my ($nodes) = get_ws_content($ws);
my $con = shift @$nodes;
ok($con->{focused}, 'con is focused');
done_testing;