← Back to branch summary

~ubuntu-branches/ubuntu/breezy/ace/breezy

« back to all changes in this revision

Viewing changes to TAO/tests/Bug_1627_Regression/run_test.pl

  • Committer: Bazaar Package Importer
  • Author(s): Adam Conrad, Benjamin Montgomery, Adam Conrad
  • Date: 2005-09-18 22:51:38 UTC
  • mfrom: (1.2.1 upstream) (2.1.1 sarge) (0.1.2 woody)
  • Revision ID: james.westby@ubuntu.com-20050918225138-seav22q6fyylb536
Tags: 5.4.7-3ubuntu1
[ Benjamin Montgomery ]
* Added a patch for amd64 and powerpc that disables the compiler
  option -fvisibility-inlines-hidden

[ Adam Conrad ]
* Added DPATCH_OPTION_CPP=1 to debian/patches/00options to make
  Benjamin's above changes work correctly with dpatch.

Show diffs side-by-side

added added

removed removed

Lines of Context:
TAO/tests/Bug_1627_Regression/run_test.pl
1
 
 
2
 
# run_test.pl,v 1.1 2003/11/18 14:55:10 smcqueen Exp
3
 
 
4
 
eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
5
 
     & eval 'exec perl -S $0 $argv:q'
6
 
     if 0;
7
 
 
8
 
# -*- perl -*-
9
 
 
10
 
use lib '../../../bin';
11
 
use PerlACE::Run_Test;
12
 
 
13
 
# The server IOR file
14
 
$server_ior_file = PerlACE::LocalFile ("server.ior");
15
 
 
16
 
# The client and server processes
17
 
$SERVER     = new PerlACE::Process(PerlACE::LocalFile("server"));
18
 
$CLIENT     = new PerlACE::Process(PerlACE::LocalFile("client"));
19
 
 
20
 
# We want the server to run on a fixed port
21
 
$port = PerlACE::uniqueid () + 10001;  # This can't be 10000 for Chorus 4.0
22
 
 
23
 
# We would normally have to specify the server port / host via -ORBEndpoint
24
 
# but we are testing the ability to define it as an environment property
25
 
$ENV {'TAO_ORBENDPOINT'} = "iiop://localhost:$port";
26
 
 
27
 
# Fire up the server
28
 
$SERVER->Spawn();
29
 
 
30
 
# We don't need the IOR file but we can wait on the file
31
 
if (PerlACE::waitforfile_timed ($server_ior_file, 10) == -1)
32
 
{
33
 
   print STDERR "ERROR: cannot find $server_ior_file\n";
34
 
   $SERVER->Kill();
35
 
   exit 1;
36
 
}
37
 
 
38
 
# Try the corbaloc URL for the server. It's almost impossible that this will work
39
 
# if the endpoint hasn't been read from the environment so we call success a pass.
40
 
$CLIENT->Arguments("-k corbaloc:iiop:localhost:$port/Name-with-hyphens");
41
 
if ($CLIENT->SpawnWaitKill (30) != 0)
42
 
{
43
 
   print STDERR "ERROR: Bug rt596 Regression failed. Endpoint was not read from environment\n";
44
 
   $SERVER->Kill();
45
 
   exit 1;
46
 
}
47
 
 
48
 
# Clean up and return
49
 
$SERVER->TerminateWaitKill (5);
50
 
unlink $server_ior_file;
51
 
exit 0;