X-Git-Url: https://git.stderr.nl/gitweb?p=matthijs%2Fupstream%2Fblosxom.git;a=blobdiff_plain;f=t%2FSetup;fp=t%2FSetup;h=0000000000000000000000000000000000000000;hp=93f0733b3a25be3d88578f8ee135afb591d00a61;hb=c9cb3b468f663d655cbc82fd6f60510836f10796;hpb=b312d5bbcd65204f7a5728fe04aba0564399fb7f diff --git a/t/Setup b/t/Setup deleted file mode 100755 index 93f0733..0000000 --- a/t/Setup +++ /dev/null @@ -1,27 +0,0 @@ -#!/usr/bin/env perl -# -# Script to setup test script symlinks, since CVS can't store them -# - -use strict; -use IO::File; - -my $DRIVER = 'driver'; -my $TESTS = 'Tests'; -die "cannot find driver file '$DRIVER'" unless -f $DRIVER; -die "cannot find tests file '$TESTS'" unless -f $TESTS; - -my @tests = (); - -my $th = IO::File->new($TESTS, 'r') - or die "cannot open tests file '$TESTS': $!"; -@tests = <$th>; -close $th; - -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: $!"; -} -