Mercurial > hg > nginx-tests

comparison fastcgi.t @ 40:3325fa3f515c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: avoid using \r\n.
author Maxim Dounin <mdounin@mdounin.ru>
date Sat, 01 Nov 2008 16:13:02 +0300
parents bd1a5e92d0c0
children 1b3c22a87e5d
comparison
equal deleted inserted replaced
39:fc205d0e052d 40:3325fa3f515c
69 my $request = FCGI::Request(\*STDIN, \*STDOUT, \*STDERR, \%ENV, 69 my $request = FCGI::Request(\*STDIN, \*STDOUT, \*STDERR, \%ENV,
70 $socket); 70 $socket);
71 71
72 my $count; 72 my $count;
73 while( $request->Accept() >= 0 ) { 73 while( $request->Accept() >= 0 ) {
74 print "Location: http://localhost:8080/redirect\r\n"; 74 $count++;
75 print "Content-type: text/html\r\n"; 75 print <<EOF;
76 print "\r\n"; 76 Location: http://localhost:8080/redirect
77 print "SEE-THIS\n"; 77 Content-Type: text/html
78 print ++$count; 78
79 SEE-THIS
80 $count
81 EOF
79 } 82 }
80 83
81 FCGI::CloseSocket($socket); 84 FCGI::CloseSocket($socket);
82 } 85 }
83 86