The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!./bin/perl
use Test::More qw(no_plan);
use Cwd;

BEGIN { use_ok('TheOneRing'); }
require_ok('GeoDB');

my $tmpdir = "/tmp/tor-tmp-cvs";

my $startingdir = cwd();

system("rm -rf $tmpdir") if (-d "$tmpdir");
mkdir("$tmpdir");
mkdir("$tmpdir/repo");
$ENV{'CVSROOT'}="$tmpdir/repo";
system("cvs init");
mkdir("$tmpdir/starter");
chdir("$tmpdir/starter");
system("cvs import -m \"initial import\" test TOR T-00");
chdir("..");
system("cvs checkout test");
system("cvs checkout -d test2 test");
chdir("test");
ok(1, "setup repo");

do "$startingdir/t/common-tests.pl";