TAO/orbsvcs/tests/CosEvent/Basic/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 # This is a Perl script that runs the client and all the other servers that
   8 # are needed
   9
  10 use lib "$ENV{ACE_ROOT}/bin";
  11 use PerlACE::TestTarget;
  12
  13 $status = 0;
  14 $debug_level = '0';
  15
  16 foreach $i (@ARGV) {
  17     if ($i eq '-debug') {
  18         $debug_level = '10';
  19     }
  20 }
  21
  22 my $test = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
  23
  24 $test->AddLibPath ('../lib');
  25
  26 my $svc_pull_conf = "svc.pull$PerlACE::svcconf_ext";
  27 my $test_svc_pull_conf = $test->LocalFile ("svc.pull$PerlACE::svcconf_ext");
  28
  29 sub RunTest ($$$)
  30 {
  31     my $message = shift;
  32     my $program = shift;
  33     my $arguments = shift;
  34
  35     my $T = $test->CreateProcess ($program, $arguments);
  36
  37     print STDERR "\n\n$message\n";
  38
  39     my $process_status = $T->SpawnWaitKill ($test->ProcessStartWaitInterval() + 225);
  40
  41     if ($process_status != 0) {
  42         print STDERR "ERROR: Test returned $process_status\n";
  43         $status = 1;
  44     }
  45 }
  46
  47 RunTest ("\n\nShutdown EC with clients still attached\n",
  48          "Shutdown",
  49          "");
  50
  51 RunTest ("\n\nDisconnect callbacks test\n",
  52          "Disconnect",
  53          "");
  54
  55 RunTest ("\n\nMT Disconnects test\n",
  56          "MT_Disconnect",
  57          "");
  58
  59 RunTest ("\n\nPush Events\n",
  60          "Push_Event",
  61          "");
  62
  63 RunTest ("\n\nPull-Push Events\n",
  64          "Pull_Push_Event",
  65          "-ORBSvcConf $svc_pull_conf");
  66
  67 RunTest ("\n\nRandom\n",
  68          "Random",
  69          "");
  70
  71 exit $status;