annotate tests/test_scc.pl @ 16:e69c970c3ddd default tip

sync
author sergey
date Tue, 20 May 2014 01:28:48 +0400
parents d997ff96acf1
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
13
a9ce584a7f3b test for mercurial repositories
sergey
parents:
diff changeset
1 #!/usr/bin/perl -w
a9ce584a7f3b test for mercurial repositories
sergey
parents:
diff changeset
2 use strict;
a9ce584a7f3b test for mercurial repositories
sergey
parents:
diff changeset
3 use config;
a9ce584a7f3b test for mercurial repositories
sergey
parents:
diff changeset
4
a9ce584a7f3b test for mercurial repositories
sergey
parents:
diff changeset
5 use IMPL::require {
a9ce584a7f3b test for mercurial repositories
sergey
parents:
diff changeset
6 HG => 'Benzin::SCC::Mercurial'
a9ce584a7f3b test for mercurial repositories
sergey
parents:
diff changeset
7 };
a9ce584a7f3b test for mercurial repositories
sergey
parents:
diff changeset
8
a9ce584a7f3b test for mercurial repositories
sergey
parents:
diff changeset
9 `rm -r /tmp/ImplabNet` if -d '/tmp/ImplabNet';
a9ce584a7f3b test for mercurial repositories
sergey
parents:
diff changeset
10
a9ce584a7f3b test for mercurial repositories
sergey
parents:
diff changeset
11 my $repo = HG->Clone(
a9ce584a7f3b test for mercurial repositories
sergey
parents:
diff changeset
12 'https://hg.implab.org/private/Pallada.PoiskAvia',
a9ce584a7f3b test for mercurial repositories
sergey
parents:
diff changeset
13 '/tmp/ImplabNet',
a9ce584a7f3b test for mercurial repositories
sergey
parents:
diff changeset
14 ['-r' => 10],
a9ce584a7f3b test for mercurial repositories
sergey
parents:
diff changeset
15 \%config::hgSettings
a9ce584a7f3b test for mercurial repositories
sergey
parents:
diff changeset
16 );
a9ce584a7f3b test for mercurial repositories
sergey
parents:
diff changeset
17
14
sergey
parents: 13
diff changeset
18 $repo->name('ImplabNet');
sergey
parents: 13
diff changeset
19 $repo->SaveConfig();
sergey
parents: 13
diff changeset
20
sergey
parents: 13
diff changeset
21 print "repo: ", $repo->hgrc->val('paths','default')," name: " ,$repo->name, "\n";
13
a9ce584a7f3b test for mercurial repositories
sergey
parents:
diff changeset
22
a9ce584a7f3b test for mercurial repositories
sergey
parents:
diff changeset
23 $repo->Pull('-u', '-r' => 20);
a9ce584a7f3b test for mercurial repositories
sergey
parents:
diff changeset
24
14
sergey
parents: 13
diff changeset
25 print "LISTING\n";
sergey
parents: 13
diff changeset
26 print "repo: ",$_->path, " " , $_->hgrc->val('paths','default','local'), "\n"
sergey
parents: 13
diff changeset
27 foreach @{HG->ListRepos('/tmp')};
sergey
parents: 13
diff changeset
28
sergey
parents: 13
diff changeset
29
13
a9ce584a7f3b test for mercurial repositories
sergey
parents:
diff changeset
30 print "done\n";