10compile_dtd.t #2

#!/usr/local/bin/perl -w

=head1 NAME

10compile_dtd.t - testing of compile_dtd command

=cut

use strict ;

use Carp ;
use Test ;
use IPC::Run3 ;
use VCP::TestUtils qw( compile_dtd_cmd );

my @compile_dtd = compile_dtd_cmd ;

# Note the spaces instead of tabs and the spaces after the null:
my $null_transfer = <<'END_TRANSFER';
Source:
        null:   

Destination:    null:  
END_TRANSFER

# Note the spaces instead of tabs and the spaces after the null:
my $identity_transfer = <<'END_TRANSFER';
Source:
        null:   

Destination:    null:  

Identity:
END_TRANSFER



# run compile_dtd command line with given parameters
sub compile_dtd {
   my $exp_results = shift ;
   my $out ;
   my $err ;
   my $pid = IPC::Run3::run3 [ @compile_dtd, @_ ], \undef, \$out, \$err ;
   confess "compile_dtd ", join( ' ', @_ ), " returned $?\n$out$err"
      if defined $exp_results && ! grep $? == $_ << 8, @$exp_results ;
   return $err . $out ;
}


sub test_helper {
   my ( $cli_params, $stdin ) = @_;
   my $ok = eval {
       VCP::TestUtils::run [ @compile_dtd, @$cli_params ], $stdin ? ( "<", \$stdin ) : ();
       1;
   };
   @_ = (
      $ok || $@,
      1,
      join " ",
         "compile_dtd",
         @$cli_params,
         $stdin
            ? ( "<", qq{\\"$stdin"} )
            : ()
   );
   goto &ok;
}


my @tests = (
sub { ok compile_dtd( [ 0 ], "revml.dtd", "-" ) },
) ;

plan tests => scalar( @tests ) ;

$_->() for @tests ;