pike.git / bin / test_pike.pike

version» Context lines:

pike.git/bin/test_pike.pike:1:   #!/usr/local/bin/pike    - /* $Id: test_pike.pike,v 1.69 2002/07/31 12:04:42 nilsson Exp $ */ + /* $Id: test_pike.pike,v 1.70 2002/08/06 18:34:41 nilsson Exp $ */      import Stdio;      #if !constant(_verify_internals)   #define _verify_internals()   #endif      #if !constant(_dmalloc_set_name)   void _dmalloc_set_name(mixed ... args) {}   #endif
pike.git/bin/test_pike.pike:44:   }      mapping(string:int) cond_cache=([]);      #if constant(thread_create)   #define HAVE_DEBUG   #endif      void bzot(string test)   { -  int line=1; -  int tmp=strlen(test)-1; -  while(test[tmp]=='\n') tmp--; -  foreach(test[..tmp]/"\n",string s) -  werror("%3d: %s\n",line++,s); +  array lines = test/"\n"; +  foreach(lines; int r; string line) { +  line = sprintf("%O",line); +  werror("%3d: %s\n", r, line[1..sizeof(line)-2]);    } -  +  werror("\n"); +  return; + }      array find_testsuites(string dir)   {    array(string) ret=({});    if(array(string) s=get_dir(dir||"."))    {    foreach(s, string file)    {    switch(file)    {