pike.git / bin / test_pike.pike

version» Context lines:

pike.git/bin/test_pike.pike:1:   #! /usr/bin/env pike    - /* $Id: test_pike.pike,v 1.98 2004/04/23 16:05:26 grubba Exp $ */ + /* $Id: test_pike.pike,v 1.99 2004/04/23 16:38:45 grubba Exp $ */      #if !constant(_verify_internals)   #define _verify_internals()   #endif      #if !constant(_dmalloc_set_name)   void _dmalloc_set_name(mixed ... args) {}   #endif      int foo(string opt)
pike.git/bin/test_pike.pike:425: Inside #if constant(_assembler_debug)
   if(asmdebug)    _assembler_debug(asmdebug);   #endif       while(loop--)    {    successes=errors=0;    if (forked) {    foreach(testsuites, string testsuite) {    Stdio.File p = Stdio.File(); +  Stdio.File p2 = p->pipe();    object pid =    Process.create_process(forked + ({ testsuite }), -  ([ "stdout":p->pipe(Stdio.PROP_IPC) ])); +  ([ "stdout":p2 ])); +  p2->close();    string raw_results;    string results = lower_case(raw_results = p->read());    int err = pid->wait();    int total = 0;    int failed = 0;    int skip = 0;    if (((sscanf(results, "%*sfailed tests:%d", failed) != 2) +    (sscanf(results, "%*stotal tests:%d", total) != 2) +    (sscanf(results, "%*s(%d tests skipped)", skip) != 2)) == 3) {    // Failed to parse the result totally.