]> git.sur5r.net Git - i3/i3/blob - testcases/t/15-ipc-workspaces.t
Test 16 fixed expectation of the (root) focused field to exist in the tree and always...
[i3/i3] / testcases / t / 15-ipc-workspaces.t
1 #!perl
2 # vim:ts=4:sw=4:expandtab
3
4 use i3test tests => 2;
5 use List::MoreUtils qw(all);
6
7 my $i3 = i3("/tmp/nestedcons");
8
9 ####################
10 # Request workspaces
11 ####################
12
13 SKIP: {
14     skip "IPC API not yet stabilized", 2;
15
16 my $workspaces = $i3->get_workspaces->recv;
17
18 ok(@{$workspaces} > 0, "More than zero workspaces found");
19
20 my $name_exists = all { defined($_->{name}) } @{$workspaces};
21 ok($name_exists, "All workspaces have a name");
22
23 }
24
25 diag( "Testing i3, Perl $], $^X" );