From abb2656fe525f2889e342c40ec043d7e938c5048 Mon Sep 17 00:00:00 2001
From: steve <none@none>
Date: Sat, 24 Dec 2005 19:10:38 +0000
Subject: [PATCH] 2005-12-24 19:10:38 by steve   Added to the repository, make
 sure hooks are executable.

---
 tests/hooks.t | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 tests/hooks.t

diff --git a/tests/hooks.t b/tests/hooks.t
new file mode 100644
index 0000000..f1b290e
--- /dev/null
+++ b/tests/hooks.t
@@ -0,0 +1,18 @@
+#!/usr/bin/perl -w
+#
+#  Test that all the hook files we install are executable.
+#
+#
+
+use strict;
+use Test::More qw( no_plan );
+
+foreach my $file ( glob( "etc/xen-create-image.d/*" ) )
+{
+    if ( ! -d $file )
+    {
+	ok( -e $file, "$file" );
+	ok( -x $file, " File is executable: $file" );
+    }
+}
+