Branch: Tag:

2001-02-01

2001-02-01 08:36:45 by Per Hedbor <ph@opera.com>

More HTTP tests.

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

6:   int current_test, tests_failed;   Process.Process test;    + mapping all_tests = ([]);   string indent( int l, string what )   {    array q = what/"\n";
57:      void current_test_done()   { - #define IND(X) this_object()[ "test_"+current_test+(X) ] + #define IND(X) all_tests[ current_test+(X) ]    if( !test || test->status() )    {    if( function fp = IND("_check") )
102:    call_out( current_test_done, 0 );   }    -  + void setup();   void create( int v )   {    verbose = v; -  +  setup();   } -  +  +  + int dt; + void atest( string n, +  function t, +  function c ) + { +  dt++; +  all_tests[ dt+"_desc" ] = n; +  all_tests[ dt+"" ] = t; +  all_tests[ dt+"_check" ] = c; + }