2 # vim:ts=4:sw=4:expandtab
5 use List::MoreUtils qw(all);
7 my $i3 = i3("/tmp/nestedcons");
14 skip "IPC API not yet stabilized", 2;
16 my $workspaces = $i3->get_workspaces->recv;
18 ok(@{$workspaces} > 0, "More than zero workspaces found");
20 my $name_exists = all { defined($_->{name}) } @{$workspaces};
21 ok($name_exists, "All workspaces have a name");
25 diag( "Testing i3, Perl $], $^X" );