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.97 2004/04/23 15:47:59 grubba Exp $ */ + /* $Id: test_pike.pike,v 1.98 2004/04/23 16:05:26 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:999: Inside #if 1
   if( !const_names[const] )    werror("Leaked constant %O\n", const);    }   #endif       add_constant("regression");    add_constant("_verbose");    add_constant("__signal_watchdog");    add_constant("RUNPIKE");    - #ifdef WATCHDOG_SIGNAL -  if(use_watchdog) + #if defined(WATCHDOG_SIGNAL) || defined(WATCHDOG_PIPE) +  if(watchdog)    { -  watchdog->kill(signum("SIGKILL")); -  watchdog->wait(); -  } - #endif -  +    #ifdef WATCHDOG_PIPE -  if(use_watchdog) -  { +     destruct(watchdog_pipe); -  + #endif    catch { watchdog->kill(signum("SIGKILL")); };    watchdog->wait();    }   #endif       return errors;   }      constant doc = #"   Usage: test_pike [args] [testfiles]