Mercurial > hg > nginx-tests

comparison lib/Test/Nginx.pm @ 28:8f1519472ece

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: unbreak and extend has() functionality.
author Maxim Dounin <mdounin@mdounin.ru>
date Fri, 10 Oct 2008 20:23:39 +0400
parents fb94a224fef2
children 71ea39729fa0
comparison
equal deleted inserted replaced
27:fb94a224fef2 28:8f1519472ece
42 my ($self) = @_; 42 my ($self) = @_;
43 $self->stop(); 43 $self->stop();
44 } 44 }
45 45
46 sub has { 46 sub has {
47 my ($self, $feature, %options) = @_; 47 my ($self, $feature) = @_;
48
49 my %regex = (
50 mail => '--with-mail',
51 rewrite => '(?s)^(?!.*--without-http_rewrite_module)',
52 static => '(?s)^(?!.*--without-http_static_module)',
53 );
54
48 Test::More::plan(skip_all => "$feature not compiled in") 55 Test::More::plan(skip_all => "$feature not compiled in")
49 unless `$NGINX -V 2>&1` =~ $feature; 56 unless `$NGINX -V 2>&1` =~ $regex{$feature};
50 Test::More::plan($options{plan}) if defined $options{plan}; 57
58 return $self;
59 }
60
61 sub plan {
62 my ($self, $plan) = @_;
63
64 Test::More::plan(tests => $plan);
65
66 return $self;
51 } 67 }
52 68
53 sub run { 69 sub run {
54 my ($self, $conf) = @_; 70 my ($self, $conf) = @_;
55 71