X-Git-Url: https://git.stderr.nl/gitweb?p=matthijs%2Fupstream%2Fblosxom.git;a=blobdiff_plain;f=t%2FSetup;fp=t%2FSetup;h=8334ff95e4592de3e3ecc2d4cca5fa97ccbf7c05;hp=0000000000000000000000000000000000000000;hb=821c5f870b74ef33ba258722c6867d345aa84e83;hpb=0a0549f8fbdc23cc0c3ab56bb799237e8875a132

diff --git a/t/Setup b/t/Setup
new file mode 100755
index 0000000..8334ff9
--- /dev/null
+++ b/t/Setup
@@ -0,0 +1,26 @@
+#!/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 = 'driver_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;
+  print "symlink $DRIVER $t\n"; 
+  eval { symlink $DRIVER, $t } or die "symlink $DRIVER, $t failed: $!";
+} 
+