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.59 2001/10/01 19:53:35 nilsson Exp $ */ + /* $Id: test_pike.pike,v 1.60 2001/11/08 14:00:09 grubba 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:139:    int end=0x7fffffff;    string extra_info="";    int shift;      #if constant(signal) && constant(signum)    if(signum("SIGQUIT")>=0)    {    signal(signum("SIGQUIT"),lambda()    {    master()->handle_error( ({"\nSIGQUIT recived, printing backtrace and continuing.\n",backtrace() }) ); +  +  mapping x=_memory_usage(); +  foreach(sort(indices(x)),string p) +  { +  if(sscanf(p,"%s_bytes",p)) +  { +  werror("%20ss: %8d %8d Kb\n",p, +  x["num_"+p+"s"], +  x[p+"_bytes"]/1024); +  } +  }    });    }   #endif       array(string) args=backtrace()[0][3];    array(string) testsuites=({});    args=args[..sizeof(args)-1-argc];    add_constant("RUNPIKE",Array.map(args,Process.sh_quote)*" ");       foreach(Getopt.find_all_options(argv,aggregate(    ({"no-watchdog",Getopt.NO_ARG,({"--no-watchdog"})}),    ({"watchdog",Getopt.HAS_ARG,({"--watchdog"})}),    ({"help",Getopt.NO_ARG,({"-h","--help"})}),    ({"verbose",Getopt.MAY_HAVE_ARG,({"-v","--verbose"})}),    ({"quiet",Getopt.NO_ARG,({"-q","--quiet"})}),    ({"start",Getopt.HAS_ARG,({"-s","--start-test"})}), -  ({"end",Getopt.HAS_ARG,({"--end-after"})}), +  ({"end",Getopt.HAS_ARG,({"-e","--end-after"})}),    ({"fail",Getopt.MAY_HAVE_ARG,({"-f","--fail"})}),    ({"loop",Getopt.MAY_HAVE_ARG,({"-l","--loop"})}),    ({"trace",Getopt.MAY_HAVE_ARG,({"-t","--trace"})}),    ({"check",Getopt.MAY_HAVE_ARG,({"-c","--check"})}),    ({"mem",Getopt.MAY_HAVE_ARG,({"-m","--mem","--memory"})}),    ({"auto",Getopt.MAY_HAVE_ARG,({"-a","--auto"})}),    ({"notty",Getopt.NO_ARG,({"-T","--notty"})}),   #ifdef HAVE_DEBUG    ({"debug",Getopt.MAY_HAVE_ARG,({"-d","--debug"})}),   #endif