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