← Back to branch summary

~ubuntu-branches/ubuntu/utopic/gitolite3/utopic-proposed

« back to all changes in this revision

Viewing changes to t/all-yall.t

  • Committer: Package Import Robot
  • Author(s): David Bremner
  • Date: 2013-05-18 17:59:21 UTC
  • Revision ID: package-import@ubuntu.com-20130518175921-ac4xe6vd0jtxvjot
Tags: upstream-3.5.1+4
Import upstream version 3.5.1+4

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/all-yall.t
 
1
#!/usr/bin/perl
 
2
use strict;
 
3
use warnings;
 
4
 
 
5
# this is hardcoded; change it if needed
 
6
use lib "src/lib";
 
7
use Gitolite::Test;
 
8
 
 
9
# could anything be clearer than "all y'all"?
 
10
# ----------------------------------------------------------------------
 
11
 
 
12
try "plan 26";
 
13
 
 
14
confreset;confadd '
 
15
    repo @all
 
16
        R   =   @all
 
17
    repo foo
 
18
        RW+ =   u1
 
19
    repo bar
 
20
        RW+ =   u2
 
21
    repo dev/..*
 
22
        C   =   u3 u4
 
23
        RW+ =   CREATOR
 
24
';
 
25
 
 
26
try "
 
27
    rm $ENV{HOME}/projects.list
 
28
";
 
29
try "ADMIN_PUSH set1; !/FATAL/" or die text();
 
30
 
 
31
try "
 
32
    glt ls-remote u1 file:///dev/wild1
 
33
                /FATAL: R any dev/wild1 u1 DENIED by fallthru/
 
34
 
 
35
    glt clone u3 file:///dev/wild1
 
36
                /Cloning into 'wild1'.../
 
37
                /Initialized empty Git repository in .*/dev/wild1.git//
 
38
                /warning: You appear to have cloned an empty repository./
 
39
 
 
40
    cd wild1
 
41
    tc n-855 n-856
 
42
    glt push u3 origin master:wild1
 
43
                /To file:///dev/wild1/
 
44
                /\\* \\[new branch\\]      master -> wild1/
 
45
    glt push u1 file:///foo master:br-foo
 
46
                /To file:///foo/
 
47
                /\\* \\[new branch\\]      master -> br-foo/
 
48
    glt push u2 file:///bar master:br-bar
 
49
                /To file:///bar/
 
50
                /\\* \\[new branch\\]      master -> br-bar/
 
51
 
 
52
    glt ls-remote u6 file:///foo
 
53
                /refs/heads/br-foo/
 
54
 
 
55
    glt ls-remote u6 file:///bar
 
56
                /refs/heads/br-bar/
 
57
 
 
58
    glt ls-remote u6 file:///dev/wild1
 
59
                /refs/heads/wild1/
 
60
";
 
61
 
 
62
try "
 
63
    gitolite ../triggers/post-compile/update-git-daemon-access-list;    ok
 
64
    gitolite ../triggers/post-compile/update-gitweb-access-list;        ok
 
65
    cat $ENV{HOME}/projects.list;                           ok
 
66
";
 
67
cmp 'bar.git
 
68
dev/wild1.git
 
69
foo.git
 
70
gitolite-admin.git
 
71
testing.git
 
72
';
 
73
 
 
74
my $rb = `gitolite query-rc -n GL_REPO_BASE`;
 
75
 
 
76
try "
 
77
    cd ..
 
78
    cd ..
 
79
    echo $rb
 
80
    find $rb -name git-daemon-export-ok | sort
 
81
    perl s,$rb/,,g
 
82
";
 
83
 
 
84
cmp 'bar.git/git-daemon-export-ok
 
85
dev/wild1.git/git-daemon-export-ok
 
86
foo.git/git-daemon-export-ok
 
87
gitolite-admin.git/git-daemon-export-ok
 
88
testing.git/git-daemon-export-ok
 
89
';