1# -*- perl -*-
2#
3
4require 5.004;
5use strict;
6
7eval { require Compress::Zlib };
8if ($@) {
9    print "1..0\n";
10    exit 0;
11}
12
13require "t/lib.pl";
14
15
16my $numTests = 18;
17my $numTest = 0;
18
19# Create a configfile with compression
20my $cfg = <<"EOF";
21require Compress::Zlib;
22
23{
24    clients => [ {
25	'mask'   => '^127\.0\.0\.1\$',
26	'accept' => 1,
27	'users' => [ {
28	    'name' => 'bob'
29	    },
30	    {
31	    'name' => 'jim',
32	    } ] }
33    ]
34}
35EOF
36if (!open(FILE, ">t/compress.cfg")
37    ||  !(print FILE ($cfg))
38    || !close(FILE)) {
39    die "Error while creating config file t/compress.cfg: $!";
40}
41
42
43my($handle, $port);
44if (@ARGV) {
45    $port = $ARGV[0];
46} else {
47    ($handle, $port) = Net::Daemon::Test->Child
48	($numTests, $^X, '-Iblib/lib', '-Iblib/arch', 't/server',
49	 '--mode=single', '--debug', '--timeout', 60,
50	 '--configfile', 't/compress.cfg', '--compression=gzip');
51}
52
53my @opts = ('peeraddr' => '127.0.0.1', 'peerport' => $port, 'debug' => 1,
54	    'application' => 'CalcServer', 'version' => 0.01,
55	    'timeout' => 20, 'compression' => 'gzip');
56
57
58RunTests('user' => 'bob', @opts);
59
60RunTests('user' => 'jim', @opts);
61$handle->Terminate() if $handle;
62
63
64
65
66
67
68
69
70
71