← Back to branch summary

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

« back to all changes in this revision

Viewing changes to TAO/performance-tests/Latency/AMI/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/performance-tests/Latency/AMI/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.4 2003/11/09 00:49:32 bala Exp
6
 
# -*- perl -*-
7
 
 
8
 
use lib "../../../../bin";
9
 
use PerlACE::Run_Test;
10
 
 
11
 
$status = 0;
12
 
$iorfile = PerlACE::LocalFile ("test.ior");
13
 
 
14
 
print STDERR "================ AMI Latency test\n";
15
 
 
16
 
unlink $iorfile;
17
 
 
18
 
$SV = new PerlACE::Process ("server",
19
 
                            "-o $iorfile");
20
 
 
21
 
$CL = new PerlACE::Process ("client",
22
 
                            "-k file://$iorfile -i 150000");
23
 
 
24
 
$SV->Spawn ();
25
 
 
26
 
if (PerlACE::waitforfile_timed ($iorfile, 15) == -1) {
27
 
    print STDERR "ERROR: cannot find file <$iorfile>\n";
28
 
    $SV->Kill ();
29
 
    exit 1;
30
 
}
31
 
 
32
 
$client = $CL->SpawnWaitKill (60);
33
 
$server = $SV->WaitKill (10);
34
 
 
35
 
unlink $iorfile;
36
 
 
37
 
if ($client != 0) {
38
 
    print STDERR "ERROR: client returned $client\n";
39
 
    $status = 1;
40
 
}
41
 
 
42
 
if ($server != 0) {
43
 
    print STDERR "ERROR: server returned $server\n";
44
 
    $status = 1;
45
 
}
46
 
 
47
 
exit $status;