| cdece0 | 2001-01-29 | Per Hedbor | | int current_test, tests_failed;
int verbose = 1;
string describe_arglist( array args )
{
array res = ({});
foreach( args, mixed arg )
if( mappingp(arg) || arrayp(arg) )
res+=({sprintf("%t<%d>",arg,sizeof(arg))});
|
| 6a6a8c | 2001-01-30 | Per Hedbor | | else if( objectp( arg ) )
if( arg->is_module )
res += ({ sprintf("%s",arg->my_configuration()->otomod[arg])});
else if( arg->is_configuration )
|
| 30e314 | 2001-01-31 | Per Hedbor | | res += ({ sprintf("%s", arg->name ) });
|
| 6a6a8c | 2001-01-30 | Per Hedbor | | else
res += ({ sprintf("%O", arg ) });
|
| cdece0 | 2001-01-29 | Per Hedbor | | else
res+=({sprintf("%O",arg)});
return res * ", ";
}
|
| 30e314 | 2001-01-31 | Per Hedbor | | void report_1st(function cb, array args, function check )
|
| cdece0 | 2001-01-29 | Per Hedbor | | {
|
| 30e314 | 2001-01-31 | Per Hedbor | | int checkid = ' ';
if( check == check_error )
checkid = '#';
else if( check == check_false )
checkid = '!';
else if( check != check_is_configuration &&
check == check_is_module )
checkid = '~';
|
| 752014 | 2001-01-31 | Per Hedbor | | report_error("%3d %c%-66s ", current_test,
checkid,sprintf("%O("+describe_arglist( args )+")",cb)[..65]
|
| 30e314 | 2001-01-31 | Per Hedbor | | );
|
| cdece0 | 2001-01-29 | Per Hedbor | | }
string do_describe_error( mixed err )
{
if( stringp( err ) )
return err + (strlen(err)?(err[-1] == '\n' ? "": "\n" ):"");
err = (array)err;
err[1] = err[1][sizeof(err[1])-3..];
return describe_backtrace( err );
}
void report_test_failure( mixed err, function cb, array args, int st )
{
report_error("FAILED\n");
if( err ) report_error( do_describe_error( err ) );
tests_failed++;
}
void report_test_ok( mixed err, function cb, array args, int st )
{
|
| 752014 | 2001-01-31 | Per Hedbor | | int tt = (gethrtime()-st);
report_debug(" %4dms\n", tt/1000);
|
| 30e314 | 2001-01-31 | Per Hedbor | |
|
| cdece0 | 2001-01-29 | Per Hedbor | | }
mixed do_test( function check_return, function cb, mixed ... args )
{
current_test++;
mixed result;
|
| 30e314 | 2001-01-31 | Per Hedbor | | report_1st( cb, args, check_return );
|
| cdece0 | 2001-01-29 | Per Hedbor | | int st = gethrtime();
mixed err = catch {
result = cb( @args );
};
if( check_return )
check_return( result, err, cb, args,st );
else if( err )
report_test_failure( err, cb, args,st );
else
report_test_ok( err, cb, args,st );
return result;
}
void check_error( mixed res, mixed err, function cb, array args,int st )
{
if( err )
report_test_ok( err, cb, args, st );
else
report_test_failure( "Expected error", cb, args, st );
}
void check_is_module( mixed res, mixed err, function cb, array args, int st )
{
if( err )
report_test_failure( err, cb, args, st );
else
if( !objectp(res) || !res->is_module || !res->my_configuration() )
report_test_failure( sprintf("Got %O, expected module", res),cb,args,
st);
else
report_test_ok( err, cb, args, st );
}
void check_is_configuration( mixed res, mixed err, function cb, array args,
int st)
{
if( err )
report_test_failure( err, cb, args, st );
else
if( !objectp(res) || !res->is_configuration )
report_test_failure( sprintf("Got %O, expected configuration", res),cb,args, st);
else
report_test_ok( err, cb, args, st );
}
|
| 30e314 | 2001-01-31 | Per Hedbor | | void check_true( mixed res, mixed err, function cb, array args, int st )
|
| cdece0 | 2001-01-29 | Per Hedbor | | {
if( err )
report_test_failure( err, cb, args, st );
else
if( !res )
report_test_failure( "expected non-zero", cb, args, st);
else
report_test_ok( err, cb, args, st );
}
|
| 6a6a8c | 2001-01-30 | Per Hedbor | |
|
| 30e314 | 2001-01-31 | Per Hedbor | | void check_false( mixed res, mixed err, function cb, array args, int st )
{
if( err )
report_test_failure( err, cb, args, st );
else
if( res )
report_test_failure( sprintf("expected zero, got %O",res), cb, args, st);
else
report_test_ok( err, cb, args, st );
}
|
| 6a6a8c | 2001-01-30 | Per Hedbor | |
function check_is( mixed m )
{
return
lambda( mixed res, mixed err, function cb, array args, int st )
{
if( err )
report_test_failure( err, cb, args, st );
else
if( res != m )
report_test_failure(sprintf("Got %O, expected %O", res,m),
cb,args,st);
else
report_test_ok( err, cb, args, st );
};
}
|
| 30e314 | 2001-01-31 | Per Hedbor | | mixed pass( mixed arg )
{
return arg;
}
|
| 6a6a8c | 2001-01-30 | Per Hedbor | | function check_equal( mixed m )
{
return
lambda( mixed res, mixed err, function cb, array args, int st )
{
if( err )
report_test_failure( err, cb, args, st );
else
if( !equal( res, m ))
report_test_failure(sprintf("Got %O, expected %O", res,m),
cb,args,st);
else
report_test_ok( err, cb, args, st );
};
}
function check_not_equal( mixed m )
{
return
lambda( mixed res, mixed err, function cb, array args, int st )
{
if( err )
report_test_failure( err, cb, args, st );
else
if( equal( res, m ))
report_test_failure(sprintf("Got %O, expected %O", res,m),
cb,args,st);
else
report_test_ok( err, cb, args, st );
};
}
|