TAO/tests/Bug_1628_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
  12 $status = 0;
  13 my $tao_idl = "$ENV{ACE_ROOT}/bin/tao_idl";
  14 if (exists $ENV{HOST_ROOT}) {
  15     $tao_idl = "$ENV{HOST_ROOT}/bin/tao_idl";
  16 }
  17
  18 my $server = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
  19
  20 # Generated code file names
  21 $TestCaseC_i = "TestCaseC.i";
  22
  23 $server_TestCaseC_i = $server->LocalFile($TestCaseC_i);
  24 $server->DeleteFile($TestCaseC_i);
  25
  26 $input_file = $server->LocalFile ("TestCase.idl");
  27
  28 # Compile the IDL
  29 #
  30
  31 $SV = $server->CreateProcess ("$tao_idl", "-Ge 1 -Sc $input_file");
  32
  33 $server_status = $SV->SpawnWaitKill ($server->ProcessStartWaitInterval());
  34
  35 if ($server_status != 0) {
  36     print STDERR "ERROR: server returned $server_status\n";
  37     $status = 1;
  38 }
  39
  40 if ($server->WaitForFileTimed ($TestCaseC_i,
  41                                $server->ProcessStartWaitInterval()) == -1) {
  42     print STDERR "ERROR: cannot find file <$server_TestCaseC_i\n";
  43     $SV->Kill (); $SV->TimedWait (1);
  44     exit 1;
  45 }
  46
  47 # Test for the presence of Body_dup etc. Crude test assumes that if
  48 # Body_dup is there, then all the Body_* methods are also there.
  49 #
  50 $found = 0 ;
  51 open (I_FILE, "$server_TestCaseC_i") ;
  52 while( <I_FILE> ){
  53    chomp ;
  54    if( $_ =~ /Body_dup/ ){
  55        $found = 1 ;
  56        last ;
  57    }
  58 }
  59 if( $found != 1 ){
  60     print STDERR "ERROR: Body_* methods not found\n" ;
  61     $status = 1 ;
  62 }
  63
  64 $server->DeleteFile($TestCaseC_i);
  65
  66
  67 exit $status;