i3test.pm: use strict; use warnings; and fix related bugs

This commit is contained in:
Maik Fischer 2011-10-11 13:13:42 +01:00 committed by Michael Stapelberg
parent 27dadb4ad9
commit fce422d99e
2 changed files with 5 additions and 4 deletions

View File

@ -1,5 +1,6 @@
package i3test;
# vim:ts=4:sw=4:expandtab
use strict; use warnings;
use File::Temp qw(tmpnam tempfile tempdir);
use Test::Builder;
@ -243,7 +244,7 @@ sub get_focused {
$lf = $focused[0];
last unless defined($con->{focus});
@focused = @{$con->{focus}};
@cons = grep { $_->{id} == $lf } (@{$con->{nodes}}, @{$con->{'floating_nodes'}});
my @cons = grep { $_->{id} == $lf } (@{$con->{nodes}}, @{$con->{'floating_nodes'}});
$con = $cons[0];
}

View File

@ -62,9 +62,9 @@ is($x->input_focus, $second->id, 'second con still focused after killing third')
$tmp = fresh_workspace;
$first = open_window($x, '#ff0000'); # window 5
$second = open_window($x, '#00ff00'); # window 6
my $third = open_window($x, '#0000ff'); # window 7
$first = open_window($x, { background_color => '#ff0000' }); # window 5
$second = open_window($x, { background_color => '#00ff00' }); # window 6
my $third = open_window($x, { background_color => '#0000ff' }); # window 7
is($x->input_focus, $third->id, 'last container focused');