#!/usr/bin/perl

use SVN::Client;

my $ctx = new SVN::Client 
              ( auth => [SVN::Client::get_ssl_server_trust_file_provider()] );

for my $i (0 .. 200)
{
	print STDERR "$i\n";
	eval {
		$ctx->copy( "https://localhost/svn/test/trunk/file", 'HEAD', 
		            "https://localhost/svn/test/trunk/file.$i" );
	};

	if ( $@ )
	{
		print STDERR "ERROR: $@\n";
	}
}

print STDERR "Done with copies\n";
sleep 10;

for my $i (0 .. 200)
{
	print STDERR "$i\n";
        eval {
	   $ctx->ls( "https://localhost/svn/test/trunk/file.$i", 'HEAD', 0);
        };

	if ( $@ )
	{
		print STDERR "ERROR: $@\n";
	}
}

