nixo
/
gri3-wm
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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 ");"
This commit is contained in:
Michael Stapelberg 2016-09-26 17:29:27 +02:00
parent 47b84ca5ed
commit 8f9138fbad
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
testcases/t/158-wm_take_focus.t
View File

@ -56,7 +56,8 @@ subtest 'Window without WM_TAKE_FOCUS', sub {
ok(!recv_take_focus($window), 'did not receive ClientMessage'); 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'); ok($con->{focused}, 'con is focused');
done_testing; 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'); 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'); ok($con->{focused}, 'con is focused');
done_testing; 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'); 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'); ok($con->{focused}, 'con is focused');
done_testing; done_testing;