Update rss20 test cases.
[blosxom-plugins.git] / t / Setup
blob93f0733b3a25be3d88578f8ee135afb591d00a61
1 #!/usr/bin/env perl
3 # Script to setup test script symlinks, since CVS can't store them
6 use strict;
7 use IO::File;
9 my $DRIVER = 'driver';
10 my $TESTS = 'Tests';
11 die "cannot find driver file '$DRIVER'" unless -f $DRIVER;
12 die "cannot find tests file '$TESTS'" unless -f $TESTS;
14 my @tests = ();
16 my $th = IO::File->new($TESTS, 'r')
17 or die "cannot open tests file '$TESTS': $!";
18 @tests = <$th>;
19 close $th;
21 for my $t (@tests) {
22 chomp $t;
23 unlink $t if -l $t;
24 print "symlink $DRIVER $t\n";
25 eval { symlink $DRIVER, $t } or die "symlink $DRIVER, $t failed: $!";