Mercurial > hg > nginx-tests
changeset 1992:d715aff0b61d
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,