comparison autoindex_win32.t @ 1987:a095b971fbcc

Tests: removed TODO and try_run() checks for legacy versions. For h2_http2.t, try_run() is preserved to ensure that deprecation warnings for "listen ... http2" are suppressed, yet plan() is reported before try_run(), so failure to start will be properly reported.
author Maxim Dounin <mdounin@mdounin.ru>
date Tue, 04 Jun 2024 18:38:01 +0300
parents 1b53142f7fdc
children
comparison
equal deleted inserted replaced
1986:11463d379570 1987:a095b971fbcc
74 my $r = http_get('/'); 74 my $r = http_get('/');
75 75
76 like($r, qr!href="test-file"!ms, 'file'); 76 like($r, qr!href="test-file"!ms, 'file');
77 like($r, qr!href="test-dir/"!ms, 'directory'); 77 like($r, qr!href="test-dir/"!ms, 'directory');
78 78
79 TODO: {
80 local $TODO = 'not yet' unless $t->has_version('1.23.4');
81
82 like($r, qr!href="test-file-(%d0%bc%d0%b8){3}"!msi, 'utf file link'); 79 like($r, qr!href="test-file-(%d0%bc%d0%b8){3}"!msi, 'utf file link');
83 like($r, qr!test-file-(\xd0\xbc\xd0\xb8){3}</a>!ms, 'utf file name'); 80 like($r, qr!test-file-(\xd0\xbc\xd0\xb8){3}</a>!ms, 'utf file name');
84 81
85 like($r, qr!href="test-dir-(%d0%bc%d0%b8){3}/"!msi, 'utf dir link'); 82 like($r, qr!href="test-dir-(%d0%bc%d0%b8){3}/"!msi, 'utf dir link');
86 like($r, qr!test-dir-(\xd0\xbc\xd0\xb8){3}/</a>!ms, 'utf dir name'); 83 like($r, qr!test-dir-(\xd0\xbc\xd0\xb8){3}/</a>!ms, 'utf dir name');
89 86
90 like($r, qr!Index of /test-dir-(\xd0\xbc\xd0\xb8){3}/!msi, 'utf subdir index'); 87 like($r, qr!Index of /test-dir-(\xd0\xbc\xd0\xb8){3}/!msi, 'utf subdir index');
91 88
92 like($r, qr!href="test-subfile-(%d0%bc%d0%b8){3}"!msi, 'utf subdir link'); 89 like($r, qr!href="test-subfile-(%d0%bc%d0%b8){3}"!msi, 'utf subdir link');
93 like($r, qr!test-subfile-(\xd0\xbc\xd0\xb8){3}</a>!msi, 'utf subdir name'); 90 like($r, qr!test-subfile-(\xd0\xbc\xd0\xb8){3}</a>!msi, 'utf subdir name');
94
95 }
96 91
97 ############################################################################### 92 ###############################################################################
98 93
99 sub win32_mkdir { 94 sub win32_mkdir {
100 my ($name) = @_; 95 my ($name) = @_;