use IO::File;
my $DRIVER = 'driver';
-my $TESTS = 'driver_tests';
+my $TESTS = 'Tests';
die "cannot find driver file '$DRIVER'" unless -f $DRIVER;
die "cannot find tests file '$TESTS'" unless -f $TESTS;
for my $t (@tests) {
chomp $t;
+ unlink $t if -l $t;
print "symlink $DRIVER $t\n";
eval { symlink $DRIVER, $t } or die "symlink $DRIVER, $t failed: $!";
}