You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
openresty/util/fix-tests

68 lines
1.2 KiB
Perl

#!/usr/bin/env perl
use strict;
use warnings;
sub cd ($);
my $ver = `bash util/ver`;
chomp $ver;
cd "ngx_openresty-$ver/bundle";
opendir(my $dh, '.') or
die "cannot opendir .: $!";
my @dirs = grep { /\d+\.\d+/ && -d "$_" } readdir($dh);
closedir $dh;
cd '../../t';
opendir($dh, '.') or
die "cannot opendir .: $!";
my @t_files = grep { /\.t$/ } readdir($dh);
closedir $dh;
for my $t_file (@t_files) {
open my $in, $t_file or
die "Cannot open $t_file for reading: $!\n";
my $outfile = $t_file . '_';
open my $out, ">$outfile" or
die "Cannot open $outfile for writing: $!\n";
my $changed;
while (<$in>) {
for my $dir (@dirs) {
(my $pat = $dir) =~ s/\d.*//;
my $orig = $_;
if (s{\.\./$pat\S+}{../$dir}g && $orig ne $_) {
$changed++;
warn "\n- $orig";
warn "+ $_";
}
}
print $out $_;
}
close $out;
warn "Wrote t/$outfile\n";
close $in;
}
print join "\n", map { " $_" } sort @dirs;
sub cd ($) {
my $dir = shift;
print("cd $dir\n");
chdir $dir or die "failed to cd $dir: $!\n";
}