# HG changeset patch
# User Maxim Dounin <mdounin@mdounin.ru>
# Date 1368289489 -14400
# Node ID 8fcc46212e5e93a398518bd2c2dc6f108ea36d99
# Parent  36d24870ccb204436faded14c2c5ad921ec01d1a
Tests: fix has_version() to handle previous branch checks.

diff --git a/lib/Test/Nginx.pm b/lib/Test/Nginx.pm
--- a/lib/Test/Nginx.pm
+++ b/lib/Test/Nginx.pm
@@ -130,10 +130,12 @@ sub has_version($) {
 	$self->{_configure_args} =~ m!nginx version: nginx/([0-9.]+)!;
 
 	my @v = split(/\./, $1);
-	my $n;
+	my ($n, $v);
 
 	for $n (split(/\./, $need)) {
-		return 0 if $n > (shift @v || 0);
+		$v = shift @v || 0;
+		return 0 if $n > $v;
+		return 1 if $v > $n;
 	}
 
 	return 1;