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