TAO/tests/Bug_3845_Regression/run_test.pl

   1
   2
   3 eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
   4      & eval 'exec perl -S $0 $argv:q'
   5      if 0;
   6
   7 # -*- perl -*-
   8
   9 use lib "$ENV{ACE_ROOT}/bin";
  10 use PerlACE::TestTarget;
  11 use File::Spec;
  12
  13 $status =0;
  14
  15 open (OLDOUT, ">&STDOUT");
  16 open (STDOUT, ">" . File::Spec->devnull());
  17 open (OLDERR, ">&STDERR");
  18 open (STDERR, ">&STDOUT");
  19
  20 my $tao_idl = "$ENV{ACE_ROOT}/bin/tao_idl";
  21 if (exists $ENV{HOST_ROOT}) {
  22     $tao_idl = "$ENV{HOST_ROOT}/bin/tao_idl";
  23 }
  24
  25 my $server = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
  26
  27 $input_file1 = $server->LocalFile ("local_inarg.idl");
  28 $input_file2 = $server->LocalFile ("local_inoutarg.idl");
  29 $input_file3 = $server->LocalFile ("local_outarg.idl");
  30 $input_file4 = $server->LocalFile ("local_rettype.idl");
  31 $input_file5 = $server->LocalFile ("issue570.idl");
  32
  33 # Compile the IDL
  34 $SV = $server->CreateProcess ("$tao_idl", "$input_file1");
  35
  36 $server_status1 = $SV->SpawnWaitKill ($server->ProcessStartWaitInterval());
  37
  38 # Compile the IDL
  39 $SV = $server->CreateProcess ("$tao_idl", "$input_file2");
  40
  41 $server_status2 = $SV->SpawnWaitKill ($server->ProcessStartWaitInterval());
  42
  43 # Compile the IDL
  44 $SV = $server->CreateProcess ("$tao_idl", "$input_file3");
  45
  46 $server_status3 = $SV->SpawnWaitKill ($server->ProcessStartWaitInterval());
  47
  48 # Compile the IDL
  49 $SV = $server->CreateProcess ("$tao_idl", "$input_file4");
  50
  51 $server_status4 = $SV->SpawnWaitKill ($server->ProcessStartWaitInterval());
  52
  53 # Compile the IDL
  54 $SV = $server->CreateProcess ("$tao_idl", "$input_file5");
  55
  56 $server_status5 = $SV->SpawnWaitKill ($server->ProcessStartWaitInterval());
  57
  58 open (STDOUT, ">&OLDOUT");
  59 open (STDERR, ">&OLDERR");
  60
  61 if ($server_status1 == 0) {
  62     print STDERR "ERROR: tao_idl returned $server_status1 for $input_file1, should have failed\n";
  63     $status = 1;
  64 }
  65
  66 if ($server_status2 == 0) {
  67     print STDERR "ERROR: tao_idl returned $server_status2 for $input_file2, should have failed\n";
  68     $status = 1;
  69 }
  70
  71 if ($server_status3 == 0) {
  72     print STDERR "ERROR: tao_idl returned $server_status3 for $input_file3, should have failed\n";
  73     $status = 1;
  74 }
  75
  76 if ($server_status4 == 0) {
  77     print STDERR "ERROR: tao_idl returned $server_status4 for $input_file4, should have failed\n";
  78     $status = 1;
  79 }
  80
  81 if ($server_status5 == 0) {
  82     print STDERR "ERROR: tao_idl returned $server_status5 for $input_file5, should have failed\n";
  83     $status = 1;
  84 }
  85
  86 exit $status;