i3/testcases/t/146-floating-reinsert.t
Maik Fischer 1b1d7941ec testcases: correctly enable lexical pragmata
eval 'package foo; use strict;' enables strict within eval, it does
not leak into the surrounding scope.
Also fix various warnings/compile errors found due to now enabled
strict and warnings.
2011-11-21 23:50:39 +00:00

45 lines
1.1 KiB
Perl

#!perl
# vim:ts=4:sw=4:expandtab
#
use X11::XCB qw(:all);
use i3test;
BEGIN {
use_ok('X11::XCB::Window');
}
my $x = X11::XCB::Connection->new;
my $tmp = fresh_workspace;
my $left = open_window($x);
my $mid = open_window($x);
cmd 'split v';
my $bottom = open_window($x);
my ($nodes, $focus) = get_ws_content($tmp);
#############################################################################
# 1: open a floating window, get it mapped
#############################################################################
# Create a floating window
my $window = open_floating_window($x);
ok($window->mapped, 'Window is mapped');
($nodes, $focus) = get_ws_content($tmp);
is(@{$nodes->[1]->{nodes}}, 2, 'two windows in split con');
#############################################################################
# 2: make it tiling, see where it ends up
#############################################################################
cmd 'floating toggle';
($nodes, $focus) = get_ws_content($tmp);
is(@{$nodes->[1]->{nodes}}, 3, 'three windows in split con after floating toggle');
done_testing;