--- /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