git.sur5r.net Git - i3/i3/blob - testcases/t/15-ipc-workspaces.t

   1 #!perl
   2 # vim:ts=4:sw=4:expandtab
   3
   4 use i3test;
   5 use List::MoreUtils qw(all);
   6
   7 my $i3 = i3(get_socket_path());
   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 done_testing;