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.76 2002/11/26 18:48:35 nilsson Exp $ */ + /* $Id: test_pike.pike,v 1.77 2002/12/02 02:09:26 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:378:    testsuites += Getopt.get_args(argv, 1)[1..];    if(!sizeof(testsuites))    {    werror("No tests found. Use --help for more information.\n");    exit(1);    }      #if 1    // Store the name of all constants so that we can see    // if any constant has been leaked from the testsuite. -  spider; +     array const_names = indices(all_constants());   #endif      #if constant(_assembler_debug)    if(asmdebug)    _assembler_debug(asmdebug);   #endif       while(loop--)    {