Mercurial > hg > nginx-tests

comparison lib/Test/Nginx.pm @ 284:8fcc46212e5e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: fix has_version() to handle previous branch checks.
author Maxim Dounin <mdounin@mdounin.ru>
date Sat, 11 May 2013 20:24:49 +0400
parents 53068d38a3ce
children cbd4f6eca676
comparison
equal deleted inserted replaced
283:36d24870ccb2 284:8fcc46212e5e
128 if !defined $self->{_configure_args}; 128 if !defined $self->{_configure_args};
129 129
130 $self->{_configure_args} =~ m!nginx version: nginx/([0-9.]+)!; 130 $self->{_configure_args} =~ m!nginx version: nginx/([0-9.]+)!;
131 131
132 my @v = split(/\./, $1); 132 my @v = split(/\./, $1);
133 my $n; 133 my ($n, $v);
134 134
135 for $n (split(/\./, $need)) { 135 for $n (split(/\./, $need)) {
136 return 0 if $n > (shift @v || 0); 136 $v = shift @v || 0;
137 return 0 if $n > $v;
138 return 1 if $v > $n;
137 } 139 }
138 140
139 return 1; 141 return 1;
140 } 142 }
141 143