nixo
/
gri3-wm
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

complete-run: clarify the message about missing ../i3 (Thanks Marcos)

This commit is contained in:
Michael Stapelberg 2012-12-20 23:50:50 +01:00
parent bb3ae9f960
commit 3ca8299637
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
testcases/complete-run.pl
View File

@ -1,10 +1,11 @@
#!/usr/bin/env perl #!/usr/bin/env perl
# vim:ts=4:sw=4:expandtab # vim:ts=4:sw=4:expandtab
# © 2010-2011 Michael Stapelberg and contributors # © 2010-2012 Michael Stapelberg and contributors
package complete_run; package complete_run;
use strict; use strict;
use warnings; use warnings;
use v5.10; use v5.10;
use utf8;
# the following are modules which ship with Perl (>= 5.10): # the following are modules which ship with Perl (>= 5.10):
use Pod::Usage; use Pod::Usage;
use Cwd qw(abs_path); use Cwd qw(abs_path);
@ -29,6 +30,9 @@ use AnyEvent::I3 qw(:all);
use X11::XCB::Connection; use X11::XCB::Connection;
use JSON::XS; # AnyEvent::I3 depends on it, too. use JSON::XS; # AnyEvent::I3 depends on it, too.
binmode STDOUT, ':utf8';
binmode STDERR, ':utf8';
# Close superfluous file descriptors which were passed by running in a VIM # Close superfluous file descriptors which were passed by running in a VIM
# subshell or situations like that. # subshell or situations like that.
AnyEvent::Util::close_all_fds_except(0, 1, 2); AnyEvent::Util::close_all_fds_except(0, 1, 2);
@ -78,7 +82,7 @@ my @binaries = qw(
); );
foreach my $binary (@binaries) { foreach my $binary (@binaries) {
die "$binary executable not found" unless -e $binary; die "$binary executable not found, did you run “make”?" unless -e $binary;
die "$binary is not an executable" unless -x $binary; die "$binary is not an executable" unless -x $binary;
} }