koma/i3
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

tests: eliminate List::MoreUtils

Browse Source
This commit is contained in:
Michael Stapelberg
2011-10-05 23:21:36 +01:00
parent b9224634dd
commit 3136573a70
3 changed files with 21 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
testcases/t/15-ipc-workspaces.t
View File

@ -2,7 +2,6 @@
# vim:ts=4:sw=4:expandtab
use i3test;
use List::MoreUtils qw(all);
my $i3 = i3(get_socket_path());
@ -17,8 +16,8 @@ my $workspaces = $i3->get_workspaces->recv;
ok(@{$workspaces} > 0, "More than zero workspaces found");
my $name_exists = all { defined($_->{name}) } @{$workspaces};
ok($name_exists, "All workspaces have a name");
#my $name_exists = all { defined($_->{name}) } @{$workspaces};
#ok($name_exists, "All workspaces have a name");
}

18
testcases/t/16-nestedcons.t
View File

@ -2,9 +2,25 @@
# vim:ts=4:sw=4:expandtab
use i3test;
use List::MoreUtils qw(all none);
use List::Util qw(first);
# to not depend on List::MoreUtils
sub all (&@) {
my $cb = shift;
for (@_) {
return 0 unless $cb->();
}
return 1;
}
sub none (&@) {
my $cb = shift;
for (@_) {
return 0 if $cb->();
}
return 1;
}
my $i3 = i3(get_socket_path());
####################