# -*- perl -*-
#
require 5.004;
use strict;
eval { require Compress::Zlib };
if ($@) {
print "1..0\n";
exit 0;
}
require "t/lib.pl";
my $numTests = 18;
my $numTest = 0;
# Create a configfile with compression
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;