← Back to branch summary

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

« back to all changes in this revision

Viewing changes to TAO/tests/OBV/Factory/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/OBV/Factory/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
 
# run_test.pl,v 1.1 2001/12/31 17:08:54 parsons Exp
6
 
# -*- perl -*-
7
 
 
8
 
use lib '../../../bin';
9
 
eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
10
 
    & eval 'exec perl -S $0 $argv:q'
11
 
    if 0;
12
 
 
13
 
# run_test.pl,v 1.1 2001/12/31 17:08:54 parsons Exp
14
 
# -*- perl -*-
15
 
 
16
 
# This is a Perl script that runs all Naming Service tests.  It starts
17
 
# all the servers and clients as necessary.
18
 
 
19
 
use lib '../../../../bin';
20
 
use PerlACE::Run_Test;
21
 
 
22
 
$iorfile = PerlACE::LocalFile ("server.ior");
23
 
unlink $iorfile;
24
 
 
25
 
$SV = new PerlACE::Process ("server", "-o $iorfile");
26
 
$CL = new PerlACE::Process ("client", " -k file://$iorfile");
27
 
 
28
 
$SV->Spawn ();
29
 
 
30
 
if (PerlACE::waitforfile_timed ($iorfile, 5) == -1) {
31
 
    print STDERR "ERROR: cannot find file <$iorfile>\n";
32
 
    $SV->Kill (); $SV->TimedWait (1);
33
 
    exit 1;
34
 
} 
35
 
 
36
 
$client = $CL->SpawnWaitKill (300);
37
 
 
38
 
if ($client != 0) {
39
 
    print STDERR "ERROR: client returned $client\n";
40
 
    $status = 1;
41
 
}
42
 
 
43
 
$server = $SV->WaitKill (10);
44
 
 
45
 
if ($server != 0) {
46
 
    print STDERR "ERROR: server returned $server\n";
47
 
    $status = 1;
48
 
}
49
 
 
50
 
unlink $iorfile;
51
 
 
52
 
exit $status;