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.72 2002/10/01 21:28:44 nilsson Exp $ */ + /* $Id: test_pike.pike,v 1.73 2002/10/09 02:07:42 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:47: Inside #if constant(thread_create)
     #if constant(thread_create)   #define HAVE_DEBUG   #endif      void bzot(string test)   {    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("%3d: %s\n", r+1, line[1..sizeof(line)-2]);    }    werror("\n");    return;   }      array find_testsuites(string dir)   {    array(string) ret=({});    if(array(string) s=get_dir(dir||"."))    {
pike.git/bin/test_pike.pike:251:    x[p+"_bytes"]/1024);    }    }    });    }       array(string) args=backtrace()[0][3];    array(string) testsuites=({});    args=args[..sizeof(args)-1-argc];    add_constant("RUNPIKE", map(args, Process.sh_quote)*" "); +  mapping test_mapping = ([]); +  add_constant("_TEST", lambda(){ return test_mapping; });       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"})}),    ({"prompt",Getopt.NO_ARG,({"-p","--prompt"})}),    ({"start",Getopt.HAS_ARG,({"-s","--start-test"})}),    ({"end",Getopt.HAS_ARG,({"-e","--end-after"})}),    ({"fail",Getopt.NO_ARG,({"-f","--fail"})}),
pike.git/bin/test_pike.pike:370:    testsuites += Getopt.get_args(argv, 1)[1..];    if(!sizeof(testsuites))    {    werror("No tests found. Use --help for more information.\n");    exit(1);    }       while(loop--)    {    successes=errors=0; +  mapping diffmem = _memory_usage();    testloop:    foreach(testsuites, string testsuite)    {    tests = read_tests( testsuite );       werror("Doing tests in %s (%d tests)\n", testsuite, sizeof(tests));    int qmade, qskipped, qmadep, qskipp;       for(e=start;e<sizeof(tests);e++)    {