Roxen.git/ server/ etc/ test/ tests/ pike_test_common.pike

2009-11-03

2009-11-03 14:28:50 by Martin Stjernholm <mast@lysator.liu.se>

• a85c0b10a8ccbee29d11abef0063553f094ee1f3 (19 lines) (+17/-2) ^{[ Show | Annotate ]}
  Branch: 5.2

Added some logging functions and improved indent().

Rev: server/etc/test/tests/pike_test_common.pike:1.15

54:   string indent( int l, string what )   {    array q = what/"\n"; - // if( q[-1] == "" ) q = q[..sizeof(q)-2]; +  int trailing_nl = q[-1] == ""; +  if (trailing_nl) q = q[..<1];    string i = (" "*l+"| "); -  return i+q*("\n"+i); +  return i+q*("\n"+i) + (trailing_nl ? "\n" : "");   }    -  + void log (string msg, mixed... args) + { +  if (sizeof (args)) msg = sprintf (msg, @args); +  report_debug (indent (2, msg)); + } +  + void log_verbose (string msg, mixed... args) + { +  if (!verbose) return; +  if (sizeof (args)) msg = sprintf (msg, @args); +  report_debug (indent (2, msg)); + } +    string do_describe_error( mixed err )   {    if (!stringp (err)) err = describe_backtrace (err);