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.14 1998/10/14 05:47:06 hubbe Exp $ */ + /* $Id: test_pike.pike,v 1.15 2000/03/09 09:07:15 hubbe Exp $ */      #include <simulate.h> -  + import Stdio;      #if !efun(_verify_internals)   #define _verify_internals()   #endif      int foo(string opt)   {    if(opt=="" || !opt) return 1;    return (int)opt;   }
pike.git/bin/test_pike.pike:83:    tests=tmp/"\n....\n";    tmp=0;    tests=tests[0..sizeof(tests)-2];       werror("Doing tests in %s (%d tests)\n",argv[f],sizeof(tests));          for(e=start;e<sizeof(tests);e++)    {    string test,condition; -  int type; +  string|int type;    object o;    mixed a,b;       if(check) _verify_internals();       test=tests[e];    if(sscanf(test,"COND %s\n%s",condition,test)==2)    {    int tmp;    if(!(tmp=cond_cache[condition]))