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.107 2004/10/22 13:14:55 grubba Exp $ */ + /* $Id: test_pike.pike,v 1.108 2005/04/09 03:11:28 nilsson 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:453:    _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(); +  if(!p2) { +  werror("Failed to create pipe.\n"); +  if(fail) exit(1); +  errors++; +  continue; +  }    object pid =    Process.create_process(forked + ({ testsuite }),    ([ "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;