#!/bin/perl

use Git;

my $url = $ARGV[0] || die("You need to specify a Git URL!\n");
my $path = 'clone_test';

system("rm -rf ${path}1");
Git::command_oneline('clone', "$url", "${path}1");
warn("Failed to clone to ${path}1!\n") unless (-d "${path}1");

system("rm -rf ${path}2");
my $foo = Git::command_oneline('clone', $url, "${path}2");
warn("Failed to clone to ${path}2!\n") unless (-d "${path}2");

system("rm -rf ${path}3");
my $foo = Git::command('clone', $url, "${path}3");
warn("Failed to clone to ${path}3!\n") unless (-d "${path}3");

system("rm -rf ${path}4");
my @foo = Git::command('clone', $url, "${path}4");
warn("Failed to clone to ${path}4!\n") unless (-d "${path}4");

system("rm -rf ${path}1");
system("rm -rf ${path}2");
system("rm -rf ${path}3");
system("rm -rf ${path}4");