The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
########################################
# test input that matches nothing
########################################
use t::lib;
use t::utilBabel;
use translate;
use Test::More;
use Data::Babel;
use strict;

init();

for my $input (@{$babel->idtypes}) {
  for my $outputs (@output_subsets) {
    my $ok=1;
    for my $input_ids ([],['none'],[grep /none/,@{idtype2ids($input)}]) {
      $ok&&=doit($input,$input_ids,undef,$outputs,__FILE__,__LINE__);
      next unless $OPTIONS->validate;
      push(@$input_ids,map {"invalid_$_"} 0..2);
      $ok&&=doit($input,$input_ids,undef,$outputs,__FILE__,__LINE__);
    }
    report_pass($ok,'input='.$input->name.' outputs='.join(' ',map {$_->name} @$outputs));
  }}
done_testing();