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

   1 #!perl
   2 # vim:ts=4:sw=4:expandtab
   3
   4 use i3test;
   5
   6 my $i3 = i3(get_socket_path());
   7
   8 ####################
   9 # Request workspaces
  10 ####################
  11
  12 SKIP: {
  13     skip "IPC API not yet stabilized", 2;
  14
  15 my $workspaces = $i3->get_workspaces->recv;
  16
  17 ok(@{$workspaces} > 0, "More than zero workspaces found");
  18
  19 #my $name_exists = all { defined($_->{name}) } @{$workspaces};
  20 #ok($name_exists, "All workspaces have a name");
  21
  22 }
  23
  24 done_testing;