Mercurial > hg > nginx-tests

comparison lib/Test/Nginx.pm @ 242:8f280348d76f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: add has_version() method and use it as appropriate.
author Maxim Dounin <mdounin@mdounin.ru>
date Mon, 26 Nov 2012 03:47:31 +0400
parents 90af19544dd2
children de7338227832
comparison
equal deleted inserted replaced
241:a01a53bcbf11 242:8f280348d76f
115 if !defined $self->{_configure_args}; 115 if !defined $self->{_configure_args};
116 116
117 return ($self->{_configure_args} =~ $re) ? 1 : 0; 117 return ($self->{_configure_args} =~ $re) ? 1 : 0;
118 } 118 }
119 119
120 sub has_version($) {
121 my ($self, $need) = @_;
122
123 $self->{_configure_args} = `$NGINX -V 2>&1`
124 if !defined $self->{_configure_args};
125
126 $self->{_configure_args} =~ m!nginx version: nginx/([0-9.]+)!;
127
128 my @v = split(/\./, $1);
129 my $n;
130
131 for $n (split(/\./, $need)) {
132 return 0 if $n > (shift @v || 0);
133 }
134
135 return 1;
136 }
137
120 sub has_daemon($) { 138 sub has_daemon($) {
121 my ($self, $daemon) = @_; 139 my ($self, $daemon) = @_;
122 140
123 if ($^O eq 'MSWin32') { 141 if ($^O eq 'MSWin32') {
124 Test::More::plan(skip_all => "win32"); 142 Test::More::plan(skip_all => "win32");