1 files changed, 124 insertions, 0 deletions
diff --git a/t/writable.t b/t/writable.t
new file mode 100755
index 0000000..a649323
--- /dev/null
+++ b/t/writable.t
@@ -0,0 +1,124 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+# this is hardcoded; change it if needed
+use lib "src/lib";
+use Gitolite::Test;
+use Cwd;
+my $workdir = getcwd();
+
+# 'gitolite writable' command
+# ----------------------------------------------------------------------
+
+my $sf = ".gitolite.down";
+
+try "plan 66";
+try "DEF POK = !/DENIED/; !/failed to push/";
+
+# delete the down file
+unlink "$ENV{HOME}/$sf";
+
+# add foo, bar/..* repos to the config and push
+confreset;confadd '
+    repo foo
+        RW  =   u1
+        R   =   u2
+
+    repo bar/..*
+        C   =   u2 u4 u6
+        RW  =   CREATOR u3
+';
+
+try "ADMIN_PUSH set1; !/FATAL/" or die text();
+
+try "
+    # clone and push to foo
+    CLONE u1 foo;               ok
+    cd foo;                     ok
+    tc f1;                      ok
+    PUSH u1 master;             ok;     /new branch/
+
+    # auto-clone and push to bar/u2
+    cd ..
+    CLONE u2 bar/u2;            ok;     /appear to have cloned an empty/
+                                        /Initialized empty/
+    cd u2;
+    tc f2
+    PUSH u2 master;             ok;
+
+    # disable site with some message
+    gitolite writable \@all off testing site-wide disable; ok
+
+    # try push foo and see fail + message
+    cd ../foo;                  ok
+    tc f3;                      ok
+    PUSH u1;                    !ok;    /testing site-wide disable/
+    # try push bar/u2 and ...
+    cd ../u2;                   ok
+    tc f4;                      ok
+    PUSH u2;                    !ok;    /testing site-wide disable/
+
+    # try auto-create push bar/u4 and this works!!
+    cd ..
+    CLONE u4 bar/u4;            ok;     /appear to have cloned an empty/
+                                        /Initialized empty/
+                                        !/testing site-wide disable/
+    cd u4;                      ok
+
+    # enable site
+    gitolite writable \@all on; ok
+
+    # try same 3 again
+
+    # try push foo and see fail + message
+    cd ../foo;                  ok
+    tc g3;                      ok
+    PUSH u1;                    ok;    /master -> master/
+    # try push bar/u2 and ...
+    cd ../u2;                   ok
+    tc g4;                      ok
+    PUSH u2;                    ok;    /master -> master/
+
+    # try auto-create push bar/u4 and this works!!
+    cd ..
+    CLONE u6 bar/u6;            ok;     /appear to have cloned an empty/
+                                        /Initialized empty/
+                                        !/testing site-wide disable/
+    cd u6;                      ok
+
+    # disable just foo
+    gitolite writable foo off foo down
+
+    # try push foo and see the message
+    cd ../foo;                  ok
+    tc g3;                      ok
+    PUSH u1;                    !ok;    /foo down/
+                                        !/testing site-wide disable/
+    # push bar/u2 ok
+    cd ../u2
+    tc g4
+    PUSH u2;                    ok;     /master -> master/
+
+    # enable foo, disable bar/u2
+    gitolite writable foo on
+    gitolite writable bar/u2 off the bar is closed
+
+    # try both
+    cd ../foo;                  ok
+    tc h3;                      ok
+    PUSH u1;                    ok;     /master -> master/
+    # push bar/u2 ok
+    cd ../u2
+    tc h4
+    PUSH u2;                    !ok;    /the bar is closed/
+
+    ssh u3 writable bar/u2 on;  !ok;    /you are not authorized/
+    ssh u3 writable \@all on;   !ok;    /you are not authorized/
+
+    ssh u2 writable bar/u2 on;  ok
+    ssh u2 writable \@all on;   !ok;    /you are not authorized/
+
+    ssh admin writable \@all on;
+                                ok
+";