(minor) sequence.t

t/sequence.t

@@ -0,0 +1,97 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+# this is hardcoded; change it if needed
+use lib "src";
+use Gitolite::Test;
+
+# uhh, seems to be another rule sequence test
+# ----------------------------------------------------------------------
+
+try "plan 40";
+
+confreset;confadd '
+    @staff = u1 u2 u3
+    @gfoo = foo/CREATOR/..*
+    repo  @gfoo
+          C       = u1
+          RW+     = CREATOR
+          RW      = WRITERS
+          -       = @staff
+';
+
+try "ADMIN_PUSH set1; !/FATAL/" or die text();
+
+try "
+    cd ..
+    glt clone u1 file:///foo/u1/bar;    ok
+        /Initialized empty Git repository in .*/foo/u1/bar.git//
+
+    cd bar
+    tc p-906
+    glt push u1 origin master
+        /To file:///foo/u1/bar/
+        /\\[new branch\\]      master -> master/
+    echo WRITERS u2 | glt perms u1 foo/u1/bar
+    glt perms u1 -l foo/u1/bar
+        /WRITERS u2/
+    # expand
+    glt info u2 -p
+        /R W  \tfoo/u1/bar/
+        /R W  \ttesting/
+
+    # push
+    cd ..
+    glt clone u2 file:///foo/u1/bar u2bar
+        /Cloning into 'u2bar'.../
+    cd u2bar
+    tc p-222
+    glt push u2
+        /master -> master/
+        !/DENIED/
+        !/failed to push/
+";
+
+confreset;confadd '
+    @staff = u1 u2 u3
+    @gfoo = foo/CREATOR/.+
+    repo  @gfoo
+          C       = u1
+          RW+     = CREATOR
+          -       = @staff
+          RW      = WRITERS
+';
+
+try "ADMIN_PUSH set1; !/FATAL/" or die text();
+
+try "
+    cd ..
+    rm -rf bar u2bar
+    glt clone u1 file:///foo/u1/bar;    ok
+        /Initialized empty Git repository in .*/foo/u1/bar.git//
+
+    cd bar
+    tc p-906
+    glt push u1 origin master
+        /To file:///foo/u1/bar/
+        /\\[new branch\\]      master -> master/
+    echo WRITERS u2 | glt perms u1 foo/u1/bar
+    glt perms u1 -l foo/u1/bar
+        /WRITERS u2/
+    # expand
+    glt info u2 -p
+        /R W  \tfoo/u1/bar/
+        /R W  \ttesting/
+
+    # push
+    cd ..
+    glt clone u2 file:///foo/u1/bar u2bar
+        /Cloning into 'u2bar'.../
+    cd u2bar
+    tc p-222
+    glt push u2
+        !ok
+        reject
+        /W refs/heads/master foo/u1/bar u2 DENIED by refs/\\.\\*/
+";