3ad2d52001-02-01Per Hedbor inherit "../pike_async_process_test_common"; string simple_check( ) { return
a3d6892001-02-01Per Hedbor  common_wait( ([ 2:"Illegal headers", 3:"Illegal data", 4:"Connection failed", 5:"Bad protocol value in reply", 6:"Bad response code in reply", 7:"No date header", 8:"Bad or no content-length header", 9:"Bad or no last-modified header",
3ad2d52001-02-01Per Hedbor  11:"Did not expect headers", 12:"Did not expect data", 13:"Did not expect connection", ]) ); }
a3d6892001-02-01Per Hedbor function run( string script, string file, int len, string ... ma )
3ad2d52001-02-01Per Hedbor { return lambda() {
a3d6892001-02-01Per Hedbor  run_pikescript( script, file, (string)len, @ma );
3ad2d52001-02-01Per Hedbor  }; }
136c032001-02-20Per Hedbor #define _test( X,Y,Z,Å,Ä,Ö) atest(X+Ä, run(Y,Z,Å,Ö), simple_check ) #define stest( X,Y,Z,Å ) _test( X,Y,Z,Å, "", "1" ) #define stest2( X,Y,Z,Å ) _test( X,Y,Z,Å," (no \\r)", "2" ) #define stest3( X,Y,Z,Å ) _test( X,Y,Z,Å," (1 b packets)", "3" ) #define stest4( X,Y,Z,Å ) _test( X,Y,Z,Å," (10 b packets)", "4" )
3ad2d52001-02-01Per Hedbor 
a3d6892001-02-01Per Hedbor void setup( ) { stest( "HTTP/0.9 /1k.raw", "http/http09.pike", "/1k.raw", 1024 ); stest( "HTTP/0.9 /10k.raw", "http/http09.pike", "/10k.raw", 1024*10 ); stest( "HTTP/0.9 /", "http/http09.pike", "/", 0 ); stest( "HTTP/0.9 /nofile", "http/http09.pike", "/nofile", 0 ); stest( "HTTP/1.0 /1k.raw", "http/http10.pike", "/1k.raw", 1024 ); stest( "HTTP/1.0 /10k.raw", "http/http10.pike", "/10k.raw", 1024*10 ); stest( "HTTP/1.0 /", "http/http10.pike", "/", 0 ); stest( "HTTP/1.0 /nofile", "http/http10.pike", "/nofile", 0 );
3ad2d52001-02-01Per Hedbor 
a3d6892001-02-01Per Hedbor  stest( "PING", "http/ping.pike", "/", 0 );
3ad2d52001-02-01Per Hedbor 
a3d6892001-02-01Per Hedbor  stest2( "HTTP/0.9 /1k.raw", "http/http09.pike", "/1k.raw", 1024 ); stest2( "HTTP/0.9 /10k.raw", "http/http09.pike", "/10k.raw", 1024*10 ); stest2( "HTTP/0.9 /", "http/http09.pike", "/", 0 ); stest2( "HTTP/0.9 /nofile", "http/http09.pike", "/nofile", 0 );
3ad2d52001-02-01Per Hedbor 
a3d6892001-02-01Per Hedbor  stest2( "HTTP/1.0 /1k.raw", "http/http10.pike", "/1k.raw", 1024 ); stest2( "HTTP/1.0 /10k.raw", "http/http10.pike", "/10k.raw", 1024*10 ); stest2( "HTTP/1.0 /", "http/http10.pike", "/", 0 ); stest2( "HTTP/1.0 /nofile", "http/http10.pike", "/nofile", 0 );
3ad2d52001-02-01Per Hedbor 
136c032001-02-20Per Hedbor  stest3( "PING", "http/ping.pike", "/", 0 ); stest3( "HTTP/0.9 /1k.raw", "http/http09.pike", "/1k.raw", 1024 ); stest3( "HTTP/0.9 /10k.raw", "http/http09.pike", "/10k.raw", 1024*10 ); stest3( "HTTP/0.9 /", "http/http09.pike", "/", 0 ); stest3( "HTTP/0.9 /nofile", "http/http09.pike", "/nofile", 0 ); stest3( "HTTP/1.0 /1k.raw", "http/http10.pike", "/1k.raw", 1024 ); stest3( "HTTP/1.0 /10k.raw", "http/http10.pike", "/10k.raw", 1024*10 ); stest3( "HTTP/1.0 /", "http/http10.pike", "/", 0 ); stest3( "HTTP/1.0 /nofile", "http/http10.pike", "/nofile", 0 ); stest4( "HTTP/0.9 /1k.raw", "http/http09.pike", "/1k.raw", 1024 ); stest4( "HTTP/0.9 /10k.raw", "http/http09.pike", "/10k.raw", 1024*10 ); stest4( "HTTP/0.9 /", "http/http09.pike", "/", 0 ); stest4( "HTTP/0.9 /nofile", "http/http09.pike", "/nofile", 0 );
a3d6892001-02-01Per Hedbor 
136c032001-02-20Per Hedbor  stest4( "HTTP/1.0 /1k.raw", "http/http10.pike", "/1k.raw", 1024 ); stest4( "HTTP/1.0 /10k.raw", "http/http10.pike", "/10k.raw", 1024*10 ); stest4( "HTTP/1.0 /", "http/http10.pike", "/", 0 ); stest4( "HTTP/1.0 /nofile", "http/http10.pike", "/nofile", 0 );
a3d6892001-02-01Per Hedbor }