#!/usr/bin/perl
use strict;
use warnings;

use File::Find::Rule;
use Path::Tiny qw/ path /;
use Test::More;
use Test::Differences;

# log of all tests
Test::More->builder->output( 'test_results.txt' );

# Get all the files we want to compare
my $rule =  File::Find::Rule->new;
$rule->file->name('*.Recip.blast.top');
my @files = $rule->in( 'Recip' );

foreach my $rcp_file ( @files ) {

  # make a new path for the original (lab results) file and
  # strip the unwanted string from the end of the filename
  ( my $org_file = $rcp_file ) =~ s/^Recip/Lab/;
  $org_file =~ s/.Recip.blast.top//;

  # designate an individual test failure log
  ( my $err_log = "test_failure.$org_file.txt" ) =~ s/Lab\///;
  Test::More->builder->failure_output( $err_log );

  # Get the content of the two files, extract the wanted strings
  # to be compared, and store in arrays
  my @rcp_lines = path( $rcp_file )->lines({ chomp => 1 });
     @rcp_lines = map { join(' ', (split '\|')[1,5]) } @rcp_lines;
  
  my @org_lines = path( $org_file )->lines({ chomp => 1 });
     @org_lines = map { join(' ', (split '\|')[5,1]) } @org_lines;

  # run the tests
  eq_or_diff( \@rcp_lines, \@org_lines, $org_file); 

}
  
done_testing;

__END__