Mercurial > pub > site.implab

changeset 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 d9551c7e7101
children d997ff96acf1
files .hgignore tests/test_scc.pl
diffstat 2 files changed, 27 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/.hgignore	Fri May 16 16:47:50 2014 +0400
+++ b/.hgignore	Mon May 19 04:34:28 2014 +0400
@@ -3,4 +3,6 @@
 mysql-data/
 
 syntax: regexp
-^tests/config\.pm$
\ No newline at end of file
+^tests/config\.pm$
+syntax: regexp
+^doxygen-data$
\ No newline at end of file
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/test_scc.pl	Mon May 19 04:34:28 2014 +0400
@@ -0,0 +1,24 @@
+#!/usr/bin/perl -w
+use strict;
+use config;
+
+use IMPL::require {
+	HG => 'Benzin::SCC::Mercurial'
+};
+
+`rm -r /tmp/ImplabNet` if -d '/tmp/ImplabNet';
+
+my $repo = HG->Clone(
+	'https://hg.implab.org/private/Pallada.PoiskAvia',
+	'/tmp/ImplabNet',
+	['-r' => 10],
+	\%config::hgSettings
+);
+
+foreach my $info (@{$repo->Income() || []}) {
+	print "$info->{number} : $info->{hash}\n";
+}
+
+$repo->Pull('-u', '-r' => 20);
+
+print "done\n";
\ No newline at end of file