summaryrefslogtreecommitdiffstats
path: root/t/00-perms.t
diff options
context:
space:
mode:
Diffstat (limited to 't/00-perms.t')
-rw-r--r--t/00-perms.t37
1 files changed, 37 insertions, 0 deletions
diff --git a/t/00-perms.t b/t/00-perms.t
new file mode 100644
index 0000000..7488139
--- /dev/null
+++ b/t/00-perms.t
@@ -0,0 +1,37 @@
+#! /usr/bin/perl
+# msguntypot tester.
+
+#########################
+
+use strict;
+use warnings;
+
+use lib q(t);
+
+use Test::More 'no_plan';
+use File::Path qw(make_path remove_tree);
+
+# No need to test uid nor to play with chmod on windows
+unless ( $^O eq 'MSWin32' ) {
+
+ BAIL_OUT("Tests cannot be run as root. Please use a regular user ID instead.\n") if $> == 0;
+
+ my @cmds = (
+ "chmod 755 t/cfg",
+ "find t/add t/cfg t/charset -maxdepth 1 -type d -exec chmod 755 {} \\;",
+ "find t/add t/cfg t/charset -maxdepth 2 -type d -exec chmod 755 {} \\;",
+ "find t/add t/cfg t/charset -type d -exec chmod 755 {} \\;",
+ "find t -type f -exec chmod 644 {} \\;"
+ );
+
+ foreach my $cmd (@cmds) {
+ my $exit_status = system($cmd);
+ if ( $exit_status == 0 ) {
+ pass($cmd);
+ } else {
+ BAIL_OUT( $cmd . " (retcode: $exit_status)" );
+ }
+ }
+}
+
+0;