# HG changeset patch
# User sergey
# Date 1400459668 -14400
# Node ID a9ce584a7f3bf115af43471532cca1c59efcece3
# Parent  d9551c7e71019b93c0eb1b95ca99cc56bae92eb7
test for mercurial repositories

diff -r d9551c7e7101 -r a9ce584a7f3b .hgignore
--- 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
diff -r d9551c7e7101 -r a9ce584a7f3b tests/test_scc.pl
--- /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