Branch: Tag:

2001-01-01

2001-01-01 14:11:27 by Mirar (Pontus Hagland) <pike@sort.mirar.org>

test (auto) testsuites from up down, not from down up

Rev: bin/test_pike.pike:1.53

1:   #!/usr/local/bin/pike    - /* $Id: test_pike.pike,v 1.52 2000/10/08 18:21:31 grubba Exp $ */ + /* $Id: test_pike.pike,v 1.53 2001/01/01 14:11:27 mirar Exp $ */      import Stdio;   
65:    {    foreach(s, string file)    { -  string name=combine_path(dir||"",file); -  if(file_size(name)==-2) -  ret+=find_testsuites(name); -  } -  -  foreach(s, string file) -  { +     switch(file)    {    case "testsuite":
79:    ret+=({ combine_path(dir||"",file) });    }    } +  +  foreach(s, string file) +  { +  string name=combine_path(dir||"",file); +  if(file_size(name)==-2) +  ret+=find_testsuites(name);    } -  +  }    return ret;   }