Mercurial > pub > site.implab

annotate tests/test_scc.pl @ 13:a9ce584a7f3b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
test for mercurial repositories
author sergey
date Mon, 19 May 2014 04:34:28 +0400
parents
children d997ff96acf1
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
a9ce584a7f3b test for mercurial repositories
sergey
parents:
diff changeset
18 foreach my $info (@{$repo->Income() || []}) {
a9ce584a7f3b test for mercurial repositories
sergey
parents:
diff changeset
19 print "$info->{number} : $info->{hash}\n";
a9ce584a7f3b test for mercurial repositories
sergey
parents:
diff changeset
20 }
a9ce584a7f3b test for mercurial repositories
sergey
parents:
diff changeset
21
a9ce584a7f3b test for mercurial repositories
sergey
parents:
diff changeset
22 $repo->Pull('-u', '-r' => 20);
a9ce584a7f3b test for mercurial repositories
sergey
parents:
diff changeset
23
a9ce584a7f3b test for mercurial repositories
sergey
parents:
diff changeset
24 print "done\n";