use warnings;
use strict;

BEGIN {
    $ENV{SPRING_WRITEDIR}='E:\\test';
    $ENV{PATH}="E:\\springrts;$ENV{PATH}";
}

use Module::Load;

load("PerlUnitSync");

PerlUnitSync::Init(0,0);
my $writeDir=PerlUnitSync::GetWritableDataDirectory();
print "writeDir=$writeDir\n";