require
5.004;
if
($@) {
print
"1..0\n"
;
exit
0;
}
require
"t/lib.pl"
;
my
$numTests
= 18;
my
$numTest
= 0;
my
$cfg
=
<<"EOF";
require Compress::Zlib;
{
clients => [ {
'mask' => '^127\.0\.0\.1\$',
'accept' => 1,
'users' => [ {
'name' => 'bob'
},
{
'name' => 'jim',
} ] }
]
}
EOF
if
(!
open
(FILE,
">t/compress.cfg"
)
|| !(
print
FILE (
$cfg
))
|| !
close
(FILE)) {
die
"Error while creating config file t/compress.cfg: $!"
;
}
my
(
$handle
,
$port
);
if
(
@ARGV
) {
$port
=
$ARGV
[0];
}
else
{
(
$handle
,
$port
) = Net::Daemon::Test->Child
(
$numTests
, $^X,
'-Iblib/lib'
,
'-Iblib/arch'
,
't/server'
,
'--mode=single'
,
'--debug'
,
'--timeout'
, 60,
'--configfile'
,
't/compress.cfg'
,
'--compression=gzip'
);
}
my
@opts
= (
'peeraddr'
=>
'127.0.0.1'
,
'peerport'
=>
$port
,
'debug'
=> 1,
'application'
=>
'CalcServer'
,
'version'
=> 0.01,
'timeout'
=> 20,
'compression'
=>
'gzip'
);
RunTests(
'user'
=>
'bob'
,
@opts
);
RunTests(
'user'
=>
'jim'
,
@opts
);
$handle
->Terminate()
if
$handle
;