1 files changed, 67 insertions, 0 deletions
diff --git a/t/deny-rules.t b/t/deny-rules.t
new file mode 100755
index 0000000..c0e7cbb
--- /dev/null
+++ b/t/deny-rules.t
@@ -0,0 +1,67 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+# this is hardcoded; change it if needed
+use lib "src/lib";
+use Gitolite::Test;
+
+# deny rules
+# ----------------------------------------------------------------------
+
+try "plan 11";
+
+confreset;confadd '
+    # start with...
+
+    repo gitolite-admin
+        -   =   gitweb daemon
+    option deny-rules = 1
+
+    # main ruleset goes here
+
+    @ga = a
+    @gb = b
+    @gc = c
+
+    # and end with
+
+    repo @ga
+        RW  =   u1
+        -   =   @all
+    option deny-rules = 1
+
+    repo @gb
+        RW  =   u2
+        -   =   daemon
+    option deny-rules = 1
+
+    repo @gc
+        RW  =   u3
+
+    repo @all
+        R   =   @all
+
+';
+
+try "ADMIN_PUSH set1; !/FATAL/" or die text();
+
+my $rb = `gitolite query-rc -n GL_REPO_BASE`;
+try "
+    cat $ENV{HOME}/projects.list;                           ok
+";
+cmp 'b.git
+c.git
+testing.git
+';
+
+try "
+    cd ..
+    cd ..
+    echo $rb
+    find $rb -name git-daemon-export-ok | sort
+    perl s,$rb/,,g
+";
+cmp 'c.git/git-daemon-export-ok
+testing.git/git-daemon-export-ok
+'