3ad2d5 | 2001-02-01 | Per Hedbor | | inherit "../pike_async_process_test_common";
string simple_check( )
{
return
|
a3d689 | 2001-02-01 | Per 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",
|
3ad2d5 | 2001-02-01 | Per Hedbor | | 11:"Did not expect headers",
12:"Did not expect data",
13:"Did not expect connection",
|
8ff16a | 2001-10-02 | Per Hedbor | | 14:"Did not expect valid reply",
|
3ad2d5 | 2001-02-01 | Per Hedbor | | ]) );
}
|
a3d689 | 2001-02-01 | Per Hedbor | | function run( string script, string file, int len, string ... ma )
|
3ad2d5 | 2001-02-01 | Per Hedbor | | {
return lambda() {
|
a3d689 | 2001-02-01 | Per Hedbor | | run_pikescript( script, file, (string)len, @ma );
|
3ad2d5 | 2001-02-01 | Per Hedbor | | };
}
|
136c03 | 2001-02-20 | Per 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" )
|
3ad2d5 | 2001-02-01 | Per Hedbor | |
|
8ff16a | 2001-10-02 | Per Hedbor | | #define stest5( X,Y,Z,Å ) _test( X,Y,Z,Å," (1k headers)", "5" )
#define stest6( X,Y,Z,Å ) _test( X,Y,Z,Å," (10k headers)", "6" )
#define stest7( X,Y,Z,Å ) _test( X,Y,Z,Å," (100k headers)", "7" )
#define stest8( X,Y,Z,Å ) _test( X,Y,Z,Å," (1k headers, no \\r)", "8" )
#define stest9( X,Y,Z,Å ) _test( X,Y,Z,Å," (10k headers, no \\r)", "9" )
#define stest10( X,Y,Z,Å ) _test( X,Y,Z,Å," (100k headers, no \\r)", "10" )
#define stest11( X,Y,Z,Å ) _test( X,Y,Z,Å," (header overflow (>512Kb))","11" )
|
7fc4a9 | 2001-06-24 | Martin Nilsson | | #define btest( X,Y,Z,Å,Ä) _test( X,Y,Z,Å, "", Ä )
|
a3d689 | 2001-02-01 | Per Hedbor | | void setup( )
{
|
8ff16a | 2001-10-02 | Per Hedbor | |
|
a3d689 | 2001-02-01 | Per Hedbor | |
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 );
|
8ff16a | 2001-10-02 | Per Hedbor | | stest( "HTTP/1.0 /nofile", "http/http10.pike", "/nofile", 0 );
|
3ad2d5 | 2001-02-01 | Per Hedbor | |
|
7fc4a9 | 2001-06-24 | Martin Nilsson | |
btest( "HTTP/01.0 /1k.raw", "http/http010.pike", "/1k.raw", 1024, "01.0" );
btest( "HTTP/01.0 /nofile", "http/http010.pike", "/nofile", 0, "01.0" );
btest( "HTTP/001.00 /1k.raw", "http/http010.pike", "/1k.raw", 1024, "001.00" );
btest( "HTTP/001.00 /nofile", "http/http010.pike", "/nofile", 0, "001.00" );
|
a3d689 | 2001-02-01 | Per Hedbor | | stest( "PING", "http/ping.pike", "/", 0 );
|
3ad2d5 | 2001-02-01 | Per Hedbor | |
|
8ff16a | 2001-10-02 | Per Hedbor | |
|
3ad2d5 | 2001-02-01 | Per Hedbor | |
|
a3d689 | 2001-02-01 | Per 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 );
|
3ad2d5 | 2001-02-01 | Per Hedbor | |
|
7fc4a9 | 2001-06-24 | Martin Nilsson | |
stest2( "PING", "http/ping.pike", "/", 0 );
|
136c03 | 2001-02-20 | Per Hedbor | |
|
8ff16a | 2001-10-02 | Per Hedbor | |
|
136c03 | 2001-02-20 | Per Hedbor | |
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 );
|
7fc4a9 | 2001-06-24 | Martin Nilsson | |
stest3( "PING", "http/ping.pike", "/", 0 );
|
136c03 | 2001-02-20 | Per Hedbor | |
|
8ff16a | 2001-10-02 | Per Hedbor | |
|
a3d689 | 2001-02-01 | Per Hedbor | |
|
136c03 | 2001-02-20 | Per 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 );
|
7fc4a9 | 2001-06-24 | Martin Nilsson | |
|
8ff16a | 2001-10-02 | Per Hedbor | | stest5( "HTTP/1.0 /1k.raw", "http/http10.pike", "/1k.raw", 1024 );
stest5( "HTTP/1.0 /10k.raw", "http/http10.pike", "/10k.raw", 1024*10 );
stest5( "HTTP/1.0 /", "http/http10.pike", "/", 0 );
stest5( "HTTP/1.0 /nofile", "http/http10.pike", "/nofile", 0 );
stest6( "HTTP/1.0 /1k.raw", "http/http10.pike", "/1k.raw", 1024 );
stest6( "HTTP/1.0 /10k.raw", "http/http10.pike", "/10k.raw", 1024*10 );
stest6( "HTTP/1.0 /", "http/http10.pike", "/", 0 );
stest6( "HTTP/1.0 /nofile", "http/http10.pike", "/nofile", 0 );
stest7( "HTTP/1.0 /1k.raw", "http/http10.pike", "/1k.raw", 1024 );
stest7( "HTTP/1.0 /10k.raw", "http/http10.pike", "/10k.raw", 1024*10 );
stest7( "HTTP/1.0 /", "http/http10.pike", "/", 0 );
stest7( "HTTP/1.0 /nofile", "http/http10.pike", "/nofile", 0 );
stest8( "HTTP/1.0 /1k.raw", "http/http10.pike", "/1k.raw", 1024 );
stest8( "HTTP/1.0 /10k.raw", "http/http10.pike", "/10k.raw", 1024*10 );
stest8( "HTTP/1.0 /", "http/http10.pike", "/", 0 );
stest8( "HTTP/1.0 /nofile", "http/http10.pike", "/nofile", 0 );
stest9( "HTTP/1.0 /1k.raw", "http/http10.pike", "/1k.raw", 1024 );
stest9( "HTTP/1.0 /10k.raw", "http/http10.pike", "/10k.raw", 1024*10 );
stest9( "HTTP/1.0 /", "http/http10.pike", "/", 0 );
stest9( "HTTP/1.0 /nofile", "http/http10.pike", "/nofile", 0 );
stest10( "HTTP/1.0 /1k.raw", "http/http10.pike", "/1k.raw", 1024 );
stest10( "HTTP/1.0 /10k.raw", "http/http10.pike", "/10k.raw", 1024*10 );
stest10( "HTTP/1.0 /", "http/http10.pike", "/", 0 );
stest10( "HTTP/1.0 /nofile", "http/http10.pike", "/nofile", 0 );
stest11( "HTTP/1.0 /1k.raw", "http/http10.pike", "/1k.raw", 0 );
stest11( "HTTP/1.0 /10k.raw", "http/http10.pike", "/10k.raw", 0 );
stest11( "HTTP/1.0 /", "http/http10.pike", "/", 0 );
stest11( "HTTP/1.0 /nofile", "http/http10.pike", "/nofile", 0 );
|
7fc4a9 | 2001-06-24 | Martin Nilsson | |
|
a3d689 | 2001-02-01 | Per Hedbor | | }
|