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.6 1998/02/24 22:48:13 hubbe Exp $ */ + /* $Id: test_pike.pike,v 1.7 1998/03/20 22:29:39 hubbe Exp $ */      #include <simulate.h>      #if !efun(_verify_internals)   #define _verify_internals()   #endif      int foo(string opt)   {    if(opt=="" || !opt) return 1;
pike.git/bin/test_pike.pike:204:    }       if(check > 2) _verify_internals();       if(fail && errors)    exit(1);       a=b=0;    }    -  if(errors || verbose) -  { -  werror("Failed tests: "+errors+".\n"); +     } -  -  } +     if(mem)    {    int total;    tests=0;    gc();    mapping tmp=_memory_usage();    write(sprintf("%-10s: %6s %10s\n","Category","num","bytes"));    foreach(sort(indices(tmp)),string foo)    {    if(sscanf(foo,"%s_bytes",foo))
pike.git/bin/test_pike.pike:234:    tmp[foo+"_bytes"]));    total+=tmp[foo+"_bytes"];    }    }    write(sprintf("%-10s: %6s %10d\n",    "Total",    "",    total));    }    } +  if(errors || verbose) +  { +  werror("Failed tests: "+errors+".\n"); +  } +     if(verbose)    {    werror("Total tests: %d\n",successes+errors);    }       return errors;   }