run_test.pl

来自「ACE编程的一本经典BIBLE的源代码,喜欢网络编程的别错过」· PL 代码 · 共 44 行

eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
     & eval 'exec perl -S $0 $argv:q'
     if 0;

# run_test.pl,v 1.2 2004/10/27 17:13:20 mesnier_p Exp
# -*- perl -*-

use lib "$ENV{ACE_ROOT}/bin";
use PerlACE::Run_Test;
use Sys::Hostname;

$iorfile = PerlACE::LocalFile ("server.ior");

unlink $iorfile;
$status = 0;

$SV = new PerlACE::Process ("server");
$host = hostname();

# The client code should later be modified to get the hostname
# using ACE_OS::hostname so the same script can be run on all
# hosts without havng to reset the host where it has to be run.
$CL = new PerlACE::Process ("client", $host);

$SV->Spawn ();

$client = $CL->SpawnWaitKill (300);

if ($client != 0) {
    print STDERR "ERROR: client returned $client\n";
    $status = 1;
}

$server = $SV->WaitKill (10);

if ($server != 0) {
    print STDERR "ERROR: server returned $server\n";
    $status = 1;
}

unlink $iorfile;

exit $status;