2005-12-24 19:10:38 by steve

Added to the repository, make sure hooks are executable.

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