TAO/tests/Bug_3743_Regression/run_test.pl

   1 eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
   2      & eval 'exec perl -S $0 $argv:q'
   3      if 0;
   4
   5 # -*- perl -*-
   6
   7 use lib "$ENV{ACE_ROOT}/bin";
   8 use PerlACE::TestTarget;
   9
  10 $status = 0;
  11
  12 my $test = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
  13
  14 my $tao_idl = "$ENV{ACE_ROOT}/bin/tao_idl";
  15 if (exists $ENV{HOST_ROOT}) {
  16     $tao_idl = "$ENV{HOST_ROOT}/bin/tao_idl";
  17 }
  18
  19 # IDL file names
  20 my $test_idlfile = $test->LocalFile ("Test.idl");
  21
  22 # Files to delete after test
  23 my @generated_files = ("TestC.cpp", "TestS.cpp", "TestC.inl", "Test.skel.h", "Test.stub.h");
  24
  25 # The IDL compiler
  26 $TAO_IDL = $test->CreateProcess ("$tao_idl");
  27 if (exists $ENV{HOST_ROOT}) {
  28     $TAO_IDL->IgnoreHostRoot(1);
  29 }
  30
  31 $TAO_IDL->Arguments ("-Se -DTAO -hs .skel.h -hc .stub.h ".
  32                      "-I$ENV{TAO_ROOT} -I$ENV{TAO_ROOT}/orbsvcs/ $test_idlfile");
  33
  34 $test_status = $TAO_IDL->SpawnWaitKill ($test->ProcessStartWaitInterval() + 45);
  35 if ($test_status != 0) {
  36     print STDERR "ERROR: test returned $test_status\n";
  37     exit 1;
  38 }
  39
  40 $found = 0;
  41
  42 $stub_h = $test->LocalFile("Test.stub.h");
  43
  44 open (STUB_HANDLE, "<$stub_h");
  45
  46 while ($line = <STUB_HANDLE>) {
  47     # Process the line.
  48     chomp $line;
  49
  50     if ($line =~ /^\#include \"orbsvcs\/CosEventChannelAdminC\.h\"$/) {
  51         print "INFO: orbsvcs/CosEventChannelAdminC.h\n";
  52         $found++;
  53     }
  54     if ($line =~ /^\#include \"orbsvcs\/CosTypedEventChannelAdminC\.h\"$/) {
  55         print "INFO: orbsvcs/CosTypedEventChannelAdminC.h\n";
  56         $found++;
  57     }
  58 }
  59
  60 close(STUB_HANDLE);
  61
  62 $skel_h = $test->LocalFile("Test.skel.h");
  63
  64 open (SKEL_HANDLE, "<$skel_h");
  65
  66 while ($line = <SKEL_HANDLE>) {
  67     # Process the line.
  68     chomp $line;
  69
  70     if ($line =~ /^\#include \"Test\.stub\.h\"$/) {
  71         print "INFO: Test.stub.hpp\n";
  72         $found++;
  73     }
  74     if ($line =~ /^\#include \"orbsvcs\/CosEventChannelAdminS\.h\"$/) {
  75         print "INFO: orbsvcs/CosEventChannelAdminS.h\n";
  76         $found++;
  77     }
  78     if ($line =~ /^\#include \"orbsvcs\/CosTypedEventChannelAdminS\.h\"$/) {
  79         print "INFO: orbsvcs/CosTypedEventChannelAdminS.h\n";
  80         $found++;
  81     }
  82 }
  83
  84 close(SKEL_HANDLE);
  85
  86 foreach $generated_file (@generated_files) {
  87     $test->DeleteFile($generated_file);
  88 }
  89
  90 if ($found == 5) {
  91     print "INFO: Test passed!\n";
  92 } else {
  93     print STDERR "ERROR: Custom endings are incorrectly applied.\n";
  94     $status = 1;
  95 }
  96
  97 exit $status;