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 tests => 2;
   5 use List::MoreUtils qw(all);
   6
   7 my $i3 = i3;
   8
   9 ####################
  10 # Request workspaces
  11 ####################
  12
  13 my $workspaces = $i3->get_workspaces->recv;
  14
  15 ok(@{$workspaces} > 0, "More than zero workspaces found");
  16
  17 my $name_exists = all { defined($_->{name}) } @{$workspaces};
  18 ok($name_exists, "All workspaces have a name");
  19
  20 diag( "Testing i3, Perl $], $^X" );