From f9c903ba62ab3d6c468b4fe44eca7b9b30b02481 Mon Sep 17 00:00:00 2001
From: Sascha Kruse <knopwob@googlemail.com>
Date: Tue, 18 Sep 2012 15:36:40 +0200
Subject: [PATCH] complete-run.pl: Check for missing executables

---
 testcases/complete-run.pl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/testcases/complete-run.pl b/testcases/complete-run.pl
index 5ea9d078..d73bb332 100755
--- a/testcases/complete-run.pl
+++ b/testcases/complete-run.pl
@@ -66,6 +66,22 @@ my $result = GetOptions(
 
 pod2usage(-verbose => 2, -exitcode => 0) if $help;
 
+# Check for missing executables
+my @binaries = qw(
+                   ../i3
+                   ../i3bar/i3bar
+                   ../i3-config-wizard/i3-config-wizard
+                   ../i3-dump-log/i3-dump-log
+                   ../i3-input/i3-input
+                   ../i3-msg/i3-msg
+                   ../i3-nagbar/i3-nagbar
+               );
+
+foreach my $binary (@binaries) {
+    die "$binary executable not found" unless -e $binary;
+    die "$binary is not an executable" unless -x $binary;
+}
+
 @displays = split(/,/, join(',', @displays));
 @displays = map { s/ //g; $_ } @displays;
 
-- 
2.39.5