Mercurial > hg > nginx-tests

comparison lib/Test/Nginx.pm @ 219:ce2e23daa1da

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: minimal win32 support.
author Maxim Dounin <mdounin@mdounin.ru>
date Fri, 01 Jun 2012 21:34:28 +0400
parents 5137f27935b4
children f6f60780f758
comparison
equal deleted inserted replaced
218:7f4a913d7504 219:ce2e23daa1da
37 'nginx-test-XXXXXXXXXX', 37 'nginx-test-XXXXXXXXXX',
38 TMPDIR => 1, 38 TMPDIR => 1,
39 CLEANUP => not $ENV{TEST_NGINX_LEAVE} 39 CLEANUP => not $ENV{TEST_NGINX_LEAVE}
40 ) 40 )
41 or die "Can't create temp directory: $!\n"; 41 or die "Can't create temp directory: $!\n";
42 $self->{_testdir} =~ s!\\!/!g if $^O eq 'MSWin32';
42 43
43 return $self; 44 return $self;
44 } 45 }
45 46
46 sub DESTROY { 47 sub DESTROY {
197 sub stop() { 198 sub stop() {
198 my ($self) = @_; 199 my ($self) = @_;
199 200
200 return $self unless $self->{_started}; 201 return $self unless $self->{_started};
201 202
202 kill 'QUIT', `cat $self->{_testdir}/nginx.pid`; 203 if ($^O eq 'MSWin32') {
204 my $testdir = $self->{_testdir};
205 my @globals = $self->{_test_globals} ?
206 () : ('-g', "pid $testdir/nginx.pid; "
207 . "error_log $testdir/error.log debug;");
208 exec($NGINX, '-c', "$testdir/nginx.conf", '-s', 'stop',
209 @globals)
210 or die "Unable to exec(): $!\n";
211
212 } else {
213 kill 'QUIT', `cat $self->{_testdir}/nginx.pid`;
214 }
215
203 wait; 216 wait;
204 217
205 $self->{_started} = 0; 218 $self->{_started} = 0;
206 219
207 return $self; 220 return $self;