From 5dabf3045ac5f1bb8b784c766757dd86ca0fc668 Mon Sep 17 00:00:00 2001
From: steve <none@none>
Date: Sun, 5 Feb 2006 18:14:55 +0000
Subject: [PATCH] 2006-02-05 18:14:55 by steve   New test: Make sure role
 scripts are executable.

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

diff --git a/tests/roles.t b/tests/roles.t
new file mode 100644
index 0000000..6a474bf
--- /dev/null
+++ b/tests/roles.t
@@ -0,0 +1,21 @@
+#!/usr/bin/perl -w
+#
+#  Test that each of the role scripts is executable.
+#
+# Steve
+# --
+# $Id: roles.t,v 1.1 2006-02-05 18:14:55 steve Exp $
+#
+
+use strict;
+use Test::More qw( no_plan );
+
+foreach my $file ( glob( "etc/role.d/*" ) )
+{
+    if ( ! -d $file )
+    {
+	ok( -e $file, "$file" );
+	ok( -x $file, " File is executable: $file" );
+    }
+}
+