Mercurial > hg > nginx-tests
diff lib/Test/Nginx.pm @ 121:8ac1faaddd2c
Tests: better handle various configure arguments.
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Sat, 26 Dec 2009 16:06:17 +0300 |
parents | 4bf7a819358c |
children | 342b31c8f3af |
line wrap: on
line diff
--- a/lib/Test/Nginx.pm Thu Dec 24 16:54:43 2009 +0300 +++ b/lib/Test/Nginx.pm Sat Dec 26 16:06:17 2009 +0300 @@ -51,11 +51,13 @@ } } -sub has($) { - my ($self, $feature) = @_; +sub has($;) { + my ($self, @features) = @_; - Test::More::plan(skip_all => "$feature not compiled in") - unless $self->has_module($feature); + foreach my $feature (@features) { + Test::More::plan(skip_all => "$feature not compiled in") + unless $self->has_module($feature); + } return $self; } @@ -64,14 +66,41 @@ my ($self, $feature) = @_; my %regex = ( - mail => '--with-mail', + mail => '--with-mail(?!\S)', flv => '--with-http_flv_module', perl => '--with-http_perl_module', + charset => '(?s)^(?!.*--without-http_charset_module)', + gzip => '(?s)^(?!.*--without-http_gzip_module)', + ssi => '(?s)^(?!.*--without-http_ssi_module)', + userid => '(?s)^(?!.*--without-http_userid_module)', + access => '(?s)^(?!.*--without-http_access_module)', + auth_basic + => '(?s)^(?!.*--without-http_auth_basic_module)', + autoindex + => '(?s)^(?!.*--without-http_autoindex_module)', + geo => '(?s)^(?!.*--without-http_geo_module)', + map => '(?s)^(?!.*--without-http_map_module)', + referer => '(?s)^(?!.*--without-http_referer_module)', rewrite => '(?s)^(?!.*--without-http_rewrite_module)', - gzip => '(?s)^(?!.*--without-http_gzip_module)', + proxy => '(?s)^(?!.*--without-http_proxy_module)', + fastcgi => '(?s)^(?!.*--without-http_fastcgi_module)', + memcached + => '(?s)^(?!.*--without-http_memcached_module)', + limit_zone + => '(?s)^(?!.*--without-http_limit_zone_module)', + limit_req + => '(?s)^(?!.*--without-http_limit_req_module)', + empty_gif + => '(?s)^(?!.*--without-http_empty_gif_module)', + browser => '(?s)^(?!.*--without-http_browser_module)', + upstream_ip_hash + => '(?s)^(?!.*--without-http_upstream_ip_hash_module)', + http => '(?s)^(?!.*--without-http(?!\S))', cache => '(?s)^(?!.*--without-http-cache)', - fastcgi => '(?s)^(?!.*--without-http_fastcgi_module)', - proxy => '(?s)^(?!.*--without-http_proxy_module)', + pop3 => '(?s)^(?!.*--without-mail_pop3_module)', + imap => '(?s)^(?!.*--without-mail_imap_module)', + smtp => '(?s)^(?!.*--without-mail_smtp_module)', + pcre => '(?s)^(?!.*--without-pcre)', ); my $re = $regex{$feature};