2 # vim:ts=4:sw=4:expandtab
4 use Test::More tests => 3;
6 use List::MoreUtils qw(all);
8 use lib "$FindBin::Bin/lib";
18 my $workspaces = $i3->get_workspaces->recv;
20 ok(@{$workspaces} > 0, "More than zero workspaces found");
22 my $name_exists = all { defined($_->{name}) } @{$workspaces};
23 ok($name_exists, "All workspaces have a name");
25 diag( "Testing i3, Perl $], $^X" );