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.100 2004/05/02 01:51:56 nilsson Exp $ */ + /* $Id: test_pike.pike,v 1.101 2004/05/23 01:57:36 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:410: Inside #if defined(WATCHDOG) and #if defined(WATCHDOG_SIGNAL)
   watchdog=Process.create_process(    backtrace()[0][3] + ({ "--watchdog="+getpid() }) );   #endif    }    add_constant("__signal_watchdog",signal_watchdog);   #else    add_constant("__signal_watchdog",lambda(){});   #endif // else WATCHDOG_PIPE       testsuites += Getopt.get_args(argv, 1)[1..]; -  if(!sizeof(testsuites)) -  { -  werror("No tests found. Use --help for more information.\n"); -  exit(1); +  foreach(testsuites; int pos; string ts) { +  if(Stdio.is_dir(ts)) +  testsuites[pos] = ts = combine_path(ts, "testsuite"); +  if(!file_stat(ts)) +  exit(1, "Could not find test %O.\n", ts);    }    -  +  if(!sizeof(testsuites)) +  exit(1, "No tests found. Use --help for more information.\n"); +    #if 1    // Store the name of all constants so that we can see    // if any constant has been leaked from the testsuite.    array const_names = indices(all_constants());   #endif      #if constant(_assembler_debug)    if(asmdebug)    _assembler_debug(asmdebug);   #endif