pike.git/ bin/ test_pike.pike

2004-02-28

2004-02-28 23:23:46 by Martin Nilsson <mani@lysator.liu.se>

• f52ca1784081b5c24f204eba7775b3af1d5b440f (4 lines) (+3/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

Prevent directories with no_testsuites from being searched.

Rev: bin/test_pike.pike:1.92

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()
42:    array(string) ret=({});    if(array(string) s=get_dir(dir||"."))    { +  if(has_value(s,"no_testsuites")) return ret;    foreach(s, string file)    {    switch(file)