Mercurial > pub > site.implab

comparison 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
comparison
equal deleted inserted replaced
12:d9551c7e7101 13:a9ce584a7f3b
1 #!/usr/bin/perl -w
2 use strict;
3 use config;
4
5 use IMPL::require {
6 HG => 'Benzin::SCC::Mercurial'
7 };
8
9 `rm -r /tmp/ImplabNet` if -d '/tmp/ImplabNet';
10
11 my $repo = HG->Clone(
12 'https://hg.implab.org/private/Pallada.PoiskAvia',
13 '/tmp/ImplabNet',
14 ['-r' => 10],
15 \%config::hgSettings
16 );
17
18 foreach my $info (@{$repo->Income() || []}) {
19 print "$info->{number} : $info->{hash}\n";
20 }
21
22 $repo->Pull('-u', '-r' => 20);
23
24 print "done\n";