koma/i3
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update testcases (and skip some tests for the moment)

Browse Source
This commit is contained in:
Michael Stapelberg
2010-06-02 23:53:22 +02:00
parent 6897e15e72
commit 285692c92c
10 changed files with 98 additions and 110 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
testcases/t/16-nestedcons.t
View File

@ -1,7 +1,7 @@
#!perl
# vim:ts=4:sw=4:expandtab
use i3test tests => 8;
use i3test tests => 7;
use List::MoreUtils qw(all none);
my $i3 = i3("/tmp/nestedcons");
@ -11,32 +11,6 @@ my $i3 = i3("/tmp/nestedcons");
####################
my $tree = $i3->get_workspaces->recv;
# $VAR1 = {
# 'fullscreen_mode' => 0,
# 'nodes' => [
# {
# 'fullscreen_mode' => 0,
# 'nodes' => [
# {
# 'fullscreen_mode' => 0,
# 'nodes' => [],
# 'window' => undef,
# 'name' => '1',
# 'orientation' => 0,
# 'type' => 2
# }
# ],
# 'window' => undef,
# 'name' => 'LVDS1',
# 'orientation' => 0,
# 'type' => 1
# }
# ],
# 'window' => undef,
# 'name' => 'root',
# 'orientation' => 0,
# 'type' => 0
# };
my $expected = {
fullscreen_mode => 0,
@ -49,6 +23,8 @@ my $expected = {
rect => ignore(),
layout => 0,
focus => ignore(),
urgent => 0,
'floating-nodes' => ignore(),
};
cmp_deeply($tree, $expected, 'root node OK');
@ -65,8 +41,8 @@ for my $ws (map { @{$_->{nodes}} } @nodes) {
push @workspaces, $ws;
}
ok((all { $_->{type} == 2 } @workspaces), 'all workspaces are of type CT_CON');
ok((all { @{$_->{nodes}} == 0 } @workspaces), 'all workspaces are empty yet');
ok((all { $_->{type} == 4 } @workspaces), 'all workspaces are of type CT_WORKSPACE');
#ok((all { @{$_->{nodes}} == 0 } @workspaces), 'all workspaces are empty yet');
ok((none { defined($_->{window}) } @workspaces), 'no CT_OUTPUT contains a window');
# TODO: get the focused container
@ -76,9 +52,9 @@ $i3->command('open')->recv;
# TODO: get the focused container, check if it changed.
# TODO: get the old focused container, check if there is a new child
diag(Dumper(\@workspaces));
#diag(Dumper(\@workspaces));
diag(Dumper($tree));
#diag(Dumper($tree));
diag( "Testing i3, Perl $], $^X" );