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.91 2004/01/15 17:48:40 nilsson Exp $ */ + /* $Id: test_pike.pike,v 1.92 2004/02/28 23:23:46 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:35:    }    werror("\n");    return;   }      array find_testsuites(string dir)   {    array(string) ret=({});    if(array(string) s=get_dir(dir||"."))    { +  if(has_value(s,"no_testsuites")) return ret;    foreach(s, string file)    {    switch(file)    {    case "testsuite":    case "module_testsuite":    ret+=({ combine_path(dir||"",file) });    }    }