Update testcases (and skip some tests for the moment)

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

View File

@ -4,12 +4,15 @@
use i3test tests => 2;
use List::MoreUtils qw(all);
my $i3 = i3;
my $i3 = i3("/tmp/nestedcons");
####################
# Request workspaces
####################
SKIP: {
skip "IPC API not yet stabilized", 2;
my $workspaces = $i3->get_workspaces->recv;
ok(@{$workspaces} > 0, "More than zero workspaces found");
@ -17,4 +20,6 @@ ok(@{$workspaces} > 0, "More than zero workspaces found");
my $name_exists = all { defined($_->{name}) } @{$workspaces};
ok($name_exists, "All workspaces have a name");
}
diag( "Testing i3, Perl $], $^X" );