new test 'listers'

2012-03-15 10:40:50 +05:30 · 2012-03-15 10:40:50 +05:30 · 8b8d3ef484
parent 446bd19de7
commit 8b8d3ef484
1 changed files with 147 additions and 0 deletions
--- a/t/listers.t
+++ b/t/listers.t
@ -0,0 +1,147 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+# this is hardcoded; change it if needed
+use lib "src";
+use Gitolite::Test;
+
+try 'plan 30';
+
+try "## info";
+
+confreset;confadd '
+    @oss = git gitolite gitolite3
+    @prop = cc p4
+    @crypto = alice bob carol
+    @dilbert = alice wally ashok
+
+    repo    @oss
+        RW              =   u1 @crypto
+        R               =   u2 @dilbert
+    repo    @prop
+        RW  =               u2 @dilbert
+        R   =               u1
+    repo    t3
+                    RW  =   u3
+                    R   =   u4
+';
+
+try "ADMIN_PUSH info; !/FATAL/" or die text();
+try "
+                                        /Initialized.*empty.*cc.git/
+                                        /Initialized.*empty.*p4.git/
+                                        /Initialized.*empty.*git.git/
+                                        /Initialized.*empty.*gitolite.git/
+                                        /Initialized.*empty.*gitolite3.git/
+                                        /Initialized.*empty.*t3.git/
+";
+
+try "gitolite list-groups"; cmp
+'@crypto
+@dilbert
+@oss
+@prop
+';
+
+try "gitolite list-users"; cmp
+'@all
+@crypto
+@dilbert
+admin
+u1
+u2
+u3
+u4
+';
+try "gitolite list-repos"; cmp
+'@oss
+@prop
+gitolite-admin
+t3
+testing
+';
+
+try "gitolite list-phy-repos"; cmp
+'cc
+git
+gitolite
+gitolite-admin
+gitolite3
+p4
+t3
+testing
+';
+
+try "gitolite list-memberships alice"; cmp
+'@all
+@crypto
+@dilbert
+alice
+';
+
+try "gitolite list-memberships ashok"; cmp
+'@all
+@dilbert
+ashok
+';
+
+try "gitolite list-memberships carol"; cmp
+'@all
+@crypto
+carol
+';
+
+try "gitolite list-memberships git"; cmp
+'@all
+@oss
+git
+';
+
+try "gitolite list-memberships gitolite"; cmp
+'@all
+@oss
+gitolite
+';
+
+try "gitolite list-memberships gitolite3"; cmp
+'@all
+@oss
+gitolite3
+';
+
+try "gitolite list-memberships cc"; cmp
+'@all
+@prop
+cc
+';
+
+try "gitolite list-memberships p4"; cmp
+'@all
+@prop
+p4
+';
+
+try "gitolite list-members \@crypto"; cmp
+'alice
+bob
+carol
+';
+
+try "gitolite list-members \@dilbert"; cmp
+'alice
+ashok
+wally
+';
+
+try "gitolite list-members \@oss"; cmp
+'git
+gitolite
+gitolite3
+';
+
+try "gitolite list-members \@prop"; cmp
+'cc
+p4
+';
+