Branch: Tag:

2001-02-01

2001-02-01 06:35:49 by Per Hedbor <ph@opera.com>

Test some HTTP stuff

Rev: server/etc/test/tests/http/RoxenTest_http.pike:1.1
Rev: server/etc/test/tests/http/http09.pike:1.1
Rev: server/etc/test/tests/http/http10.pike:1.1
Rev: server/etc/test/tests/http/http_common.pike:1.1

1: + inherit "http_common";    -  + void main(int argc, array argv) + { +  if( argc != 4 ) exit( BADARG ); +  +  Stdio.File f = connect( argv[1] ); +  +  f->write( "GET "+argv[2]+"\r\n" ); +  +  string data = f->read(); +  +  if( sizeof( data / "\r\n\r\n" ) != 1 ) +  exit( HEADERS ); +  +  if( (int)argv[3] ) +  if( data != ("\0" * (int)argv[3]) ) +  exit( BADDATA ); +  +  exit( OK ); + }   Newline at end of file added.