TAO/tests/Sequence_Iterators/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 use strict;
  10
  11 my $final_result = 0;
  12
  13 my @testsToRun = qw(
  14                  StringSeq
  15                  Bounded_String
  16                  Unbounded_Value
  17                  Unbounded_Objectref
  18               );
  19
  20 foreach my $process (@testsToRun) {
  21
  22     my $server = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
  23     my $P = $server->CreateProcess ($process);
  24     print "Running $process ...\n";
  25     my $result = $P->Spawn;
  26     if ($result != 0) {
  27         print "FAILED $process\n";
  28         $final_result = 1;
  29         next;
  30     }
  31     $result = $P->WaitKill($server->ProcessStartWaitInterval());
  32     if ($result != 0) {
  33         print "FAILED $process\n";
  34         $final_result = 1;
  35         next;
  36     }
  37     print "SUCCESS\n";
  38 }
  39
  40 exit $final_result;
  41
  42
  43
  44
  45