#!/usr/bin/perl
use strict;
use File::Copy 'mv';
use File::Basename 'basename';
my $endtest = qr(^(?:---|\[\[\[ |Input vcode 0x));
# mkdir partests; build/SMHasher --list|perl -alne'print $F[0] | parallel -j4 --bar 'build/SMHasher --test=Sparse,Permutation,Cyclic,TwoBytes,DiffDist,Text,Zeroes,Seed,Sanity,Avalanche,BIC,LongNeighbors,Diff,MomentChi2 {} >partests/{}'
# build/SMHasher --list|perl -alne'print $F[0] | parallel -j4 --bar 'build/SMHasher --test=Sparse,Permutation,Cyclic,TwoBytes,DiffDist,Text,Zeroes,Seed {} >lowcoll/{}'
my @orderedtests = qw(Sanity Speed HashMap Sparse Permutation Window Cyclic TwoBytes Text Zeroes Seed PerlinNoise Diff DiffDist MomentChi2 Prng LongNeighbors BIC BadSeeds);
my @keysettests = qw(Sparse Permutation Window Cyclic TwoBytes Text Zeroes Seed PerlinNoise);
my @othertests = qw(Sanity Avalanche Diff DiffDist MomentChi2 Prng LongNeighbors BIC BadSeeds);
my %tests = map {$_ => 1} @keysettests, @othertests;
my $testrx = '(' . join('|',@othertests) . ')';
$testrx = qr($testrx);

if (@ARGV) {
  readf($_) for @ARGV;
} else {
  readf($_) for <partests/*.txt>;
}

sub readf {
  my $fn = shift;
  my ($n,%r);
  open(my $l, "<", $fn) or die "open $fn $!";
  $n = basename($fn) unless $fn =~ /^log\./;
  $n =~ s/\.txt$//;
  while (<$l>) {
    if (/^--- Testing ([\w_-]+) \"/) {
      if ($n) { # fixup previous name
        fixup($n,\%r,$fn) if %r;
      }
      $n = $1; %r = ();
    }
  NEXT:
    if (/^\[\[\[ Keyset '(.+?)' Tests/) {
      my $t = $1;
      while (<$l>) {
        goto NEXT if $_ =~ $endtest;
        $r{$t} .= $_;
      }
    }
    if (/^\[\[\[ '?$testrx'? /) {
      my $t = $1;
      while (<$l>) {
        goto NEXT if $_ =~ $endtest;
        $r{$t} .= $_;
      }
    }
    if (/^Input vcode 0x/) {
      last;
    }
  }
  fixup($n,\%r,$fn) if $n; # fixup last name
}

sub fixup {
  my ($n,$r,$fn) = @_;
  return unless $n;
  return if !%$r;
  return if "doc/$n.txt" eq $fn;
  open(my $I, "<", "doc/$n.txt") or die "open doc/$n.txt $!";
  open(my $O, ">", "doc/$n.new") or die "open doc/$n.new $!";
  my $found;
  my %r = %$r;
  while (<$I>) {
    print $O $_;
    # search for $n in doc
    if (/^--- Testing /) {
      if ($found && %r) {
        print STDERR "tests not in doc/$n.txt:\n", join(" ",sort keys %r), "\n";
      }
      $found = /^--- Testing $n /;
    }
  NEXT1:
    if ($found && /^\[\[\[ Keyset '(.+?)' Tests/ && $r{$1}) {
      my $t = $1;
      print $O $r{$t};
      delete $r{$t};
      while (<$I>) {
        if ($_ =~ $endtest) {
          print $O $_;
          goto NEXT1;
        }
      }
      print $O $_;
    }
    if ($found && /^\[\[\[ '?$testrx'? / && $r{$1}) {
      my $t = $1;
      print $O $r{$t};
      delete $r{$t};
      while (<$I>) {
        if ($_ =~ $endtest) {
          print $O $_;
          goto NEXT1;
        }
      }
      print $O $_;
    }
  }
  if (%r) {
    print STDERR "finally tests not found in doc/$n.txt:\n", join(" ",sort keys %r), "\n";
  }
  close $I;
  close $O;
  mv ("doc/$n.new", "doc/$n.txt") if $found;
}