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" );
+    }
+}
+