########################################
# translate_hand.010.main -- main tests 
# adapted from babel.040.translate_hand
########################################
use t::lib;
use t::utilBabel;
use pdups_hand;
use List::Util qw(min);
use Set::Scalar;
use Test::More;
use Data::Babel;
use strict;

init();

# need at least 2 outputs to get pseudo-dups. 
# all combinations of regular types work
my $power_set=Set::Scalar->new(@regular_idtypes)->power_set;
my @output_subsets=map {[$_->members]} grep {$_->size>=2} $power_set->members;
push(@output_subsets,[@regular_idtypes,@regular_idtypes]); # to test duplicate ouputs
# add in specific combinations with multi types that produce pseudo-dups
push(@output_subsets,
     [qw(type_001 type_multi_001 type_004)],
     [qw(type_002 type_multi_001 type_004)],
     [qw(type_003 type_multi_001 type_004)],
     [qw(type_001 type_multi_003 type_004)],
     [qw(type_002 type_multi_003 type_004)],
     [qw(type_002 type_multi_001 type_multi_003)],
     [qw(type_004 type_multi_001 type_multi_003)],
     [qw(type_001 type_004 type_multi_001 type_multi_003)],
     [qw(type_002 type_004 type_multi_001 type_multi_003)],
     );
for my $output_idtypes (@output_subsets) {
  for my $input_idtype (@regular_idtypes) {
    doit_all($input_idtype,$output_idtypes);
  }
}

done_testing();

# do it with one id ('111') and all ids
sub doit_all {
  my($input_idtype,$output_idtypes)=@_;
  my $ok=1;
  my @input_ids=make_ids($input_idtype);
  push(@input_ids,make_invalid_ids($input_idtype)) if $OPTIONS->validate;
  $ok&&=doit($input_idtype,\@input_ids,$output_idtypes,__FILE__,__LINE__) or return 0;
  $ok&&=doit($input_idtype,undef,$output_idtypes,__FILE__,__LINE__) or return 0;
  report_pass($ok,"$OP input=$input_idtype, outputs=".join(',',@$output_idtypes));
}
sub doit {
  my($input_idtype,$input_ids,$output_idtypes,$file,$line)=@_;
  my $ok=1;
  my @args=(input_idtype=>$input_idtype,input_ids=>$input_ids,output_idtypes=>$output_idtypes);
  push(@args,validate=>1) if $OPTIONS->validate;
  my $correct=select_ur(babel=>$babel,@args);
  my $actual=$babel->$OP(@args);
  my $label="input_idtype=$input_idtype, input_ids=".
    ($input_ids? "@$input_ids": 'ALL')." output_idtypes=@$output_idtypes";
  $ok&&=cmp_op_quietly($actual,$correct,$OP,$label,$file,$line) or return 0;
  $ok;
}