Mercurial > hg > nginx-tests

changeset 1992:d715aff0b61d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: fixed proxy_cache_age.t with older Perl versions. The test used regular expressions with "{,n}" quantifier with empty lower bound, which is only available starting with Perl 5.34.0. Further, it used variable-length look-behind assertions, which are only available starting with Perl 5.30.0 and emit experimental warning till Perl 5.36.0. Fix is to rewrite regular expressions in question using "(?>pattern)" instead (an independent subexpression), which is available since at least Perl 5.005.
author Maxim Dounin <mdounin@mdounin.ru>
date Thu, 01 Aug 2024 10:35:39 +0300
parents a8c4d48a4073
children 6b1222de8286
files proxy_cache_age.t
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/proxy_cache_age.t
+++ b/proxy_cache_age.t
@@ -123,11 +123,11 @@ like(get('/ignore/noage'), qr/HIT/, 'noa
 
 sleep(2);
 
-like(http_get('/fresh'), qr/(?<!Age:.{,200})Age: 9[1-5](?!.*Age:)/ms,
+like(http_get('/fresh'), qr/^(?>.*?Age:) 9[1-5](?!.*Age:)/s,
 	'cached age updated');
-like(http_get('/stale'), qr/(?<!Age:.{,200})Age: 110(?!.*Age:)/ms,
+like(http_get('/stale'), qr/^(?>.*?Age:) 110(?!.*Age:)/s,
 	'not cached age preserved');
-like(http_get('/noage'), qr/(?<!Age:.{,200})Age: [1-5](?!.*Age:)/ms,
+like(http_get('/noage'), qr/^(?>.*?Age:) [1-5](?!.*Age:)/s,
 	'noage age added');
 
 like(http_get('/revalidate'), qr/REVALIDATED(?!.*Age:)/ms,