comparison access_log.t @ 458:ae69f9bdba92

Tests: fixed access_log.t on win32. Compressed logs aren't translated by PerlIO, hence newlines may vary (and will be CRLF on win32).
author Maxim Dounin <mdounin@mdounin.ru>
date Mon, 01 Sep 2014 14:51:55 +0400
parents be98c162f8bc
children da1a459c9318
comparison
equal deleted inserted replaced
457:4ceb2d12b7d2 458:ae69f9bdba92
130 eval { require IO::Uncompress::Gunzip; }; 130 eval { require IO::Uncompress::Gunzip; };
131 skip("IO::Uncompress::Gunzip not installed", 1) if $@; 131 skip("IO::Uncompress::Gunzip not installed", 1) if $@;
132 132
133 my $gzipped = read_file($t, 'compressed.log'); 133 my $gzipped = read_file($t, 'compressed.log');
134 IO::Uncompress::Gunzip::gunzip(\$gzipped => \$log); 134 IO::Uncompress::Gunzip::gunzip(\$gzipped => \$log);
135 is($log, "/compressed:200\n", 'compressed log - flush time'); 135 like($log, qr!^/compressed:200!s, 'compressed log - flush time');
136 } 136 }
137 137
138 # now verify all other logs 138 # now verify all other logs
139 139
140 $t->stop(); 140 $t->stop();