Mercurial > hg > nginx-tests
diff autoindex_format.t @ 1351:81579df2ba8c
Tests: fixed perl 5.28 "Unescaped left brace in regex" warnings.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Thu, 28 Jun 2018 16:07:28 +0300 |
parents | 882267679006 |
children |
line wrap: on
line diff
--- a/autoindex_format.t Fri Jun 15 13:59:08 2018 +0300 +++ b/autoindex_format.t Thu Jun 28 16:07:28 2018 +0300 @@ -121,22 +121,22 @@ like($r, qr!Content-Type: application/json!, 'json content type'); like($r, qr!{$kv(,$kv)*}!, 'json format'); -($data) = $r =~ qr!({[^}]*?"name"\s*:\s*"test-file".*?})!; +($data) = $r =~ qr!(\{[^}]*?"name"\s*:\s*"test-file".*?})!; like($data, qr!"type"\s*:\s*"file"!, 'json file'); like($data, $mtime, 'json file mtime'); like($data, qr!"size"\s*:\s*42!, 'json file size'); -($data) = $r =~ qr!({[^}]*?"name"\s*:\s*"test-file-link".*?})!; +($data) = $r =~ qr!(\{[^}]*?"name"\s*:\s*"test-file-link".*?})!; like($data, qr!"type"\s*:\s*"file"!, 'json file link'); like($data, $mtime, 'json file link mtime'); like($data, qr!"size"\s*:\s*42!, 'json file link size'); -($data) = $r =~ qr!({[^}]*?"name"\s*:\s*"test-dir".*?})!; +($data) = $r =~ qr!(\{[^}]*?"name"\s*:\s*"test-dir".*?})!; like($data, qr!"type"\s*:\s*"directory"!, 'json dir'); like($data, $mtime, 'json dir mtime'); unlike($data, qr!"size"\s*:\s*$number!, 'json dir size'); -($data) = $r =~ qr!({[^}]*?"name"\s*:\s*"test-dir-link".*?})!; +($data) = $r =~ qr!(\{[^}]*?"name"\s*:\s*"test-dir-link".*?})!; like($data, qr!"type"\s*:\s*"directory"!, 'json dir link'); like($data, $mtime, 'json dir link mtime'); unlike($data, qr!"size"\s*:\s*$number!, 'json dir link size');