📄 run_test.pl
字号:
eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
& eval 'exec perl -S $0 $argv:q'
if 0;
# run_test.pl,v 1.1 2003/11/18 14:55:10 smcqueen Exp
# -*- perl -*-
# This is a Perl script that runs the federated Name Service timeout test.
# It starts all the servers and clients as necessary.
use lib '../../../bin';
use PerlACE::Run_Test;
$status = 0;
$CLIENT = new PerlACE::Process ("client");
$client = $CLIENT->SpawnWaitKill (30);
if ($client !=0 ) {
print STDERR "ERROR: client returned $client\n";
}
exit $status;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -