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.81 2003/03/29 14:08:22 marcus Exp $ */ + /* $Id: test_pike.pike,v 1.82 2003/03/29 17:58:55 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:376:    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. -  Pipe; /* Pipe module defines an efun, so load it before listing constants */ +     array const_names = indices(all_constants());   #endif      #if constant(_assembler_debug)    if(asmdebug)    _assembler_debug(asmdebug);   #endif       while(loop--)    {