comparison server_tokens.t @ 1950:e0b55129fbbf

Tests: fixed server_tokens.t to accept alternative names.
author Maxim Dounin <mdounin@mdounin.ru>
date Thu, 29 Feb 2024 06:54:19 +0300
parents 5f46af4707e7
children
comparison
equal deleted inserted replaced
1949:6e4a480ab370 1950:e0b55129fbbf
89 89
90 $t->run()->plan(12); 90 $t->run()->plan(12);
91 91
92 ############################################################################### 92 ###############################################################################
93 93
94 my $re = qr/nginx\/\d+\.\d+\.\d+/; 94 my $re = qr/\w+\/\d+\.\d+\.\d+/;
95 95
96 like(http_get_server('/200'), $re, 'tokens default 200'); 96 like(http_get_server('/200'), $re, 'tokens default 200');
97 like(http_get_server('/404'), $re, 'tokens default 404'); 97 like(http_get_server('/404'), $re, 'tokens default 404');
98 like(http_body('/404'), $re, 'tokens default 404 body'); 98 like(http_body('/404'), $re, 'tokens default 404 body');
99 99
100 is(http_get_server('/off/200'), 'nginx', 'tokens off 200'); 100 like(http_get_server('/off/200'), qr/^\w+$/, 'tokens off 200');
101 is(http_get_server('/off/404'), 'nginx', 'tokens off 404'); 101 like(http_get_server('/off/404'), qr/^\w+$/, 'tokens off 404');
102 like(http_body('/off/404'), qr/nginx(?!\/)/, 'tokens off 404 body'); 102 unlike(http_body('/off/404'), $re, 'tokens off 404 body');
103 103
104 like(http_get_server('/on/200'), $re, 'tokens on 200'); 104 like(http_get_server('/on/200'), $re, 'tokens on 200');
105 like(http_get_server('/on/404'), $re, 'tokens on 404'); 105 like(http_get_server('/on/404'), $re, 'tokens on 404');
106 like(http_body('/on/404'), $re, 'tokens on 404 body'); 106 like(http_body('/on/404'), $re, 'tokens on 404 body');
107 107