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.34 2000/02/22 16:49:15 hubbe Exp $ */ + /* $Id: test_pike.pike,v 1.35 2000/02/28 04:20:18 hubbe 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:382:       if(verbose)    {    werror("Doing test %d (%d total)%s\n",e+1,successes+errors+1,extra_info);    if(verbose>1) bzot(test);    }       if(check > 1) _verify_internals();       shift++; -  shift%=3; +     string fname = argv[f] + ": Test " + (e + 1) + -  " (shift " + shift + ")"; +  " (shift " + (shift%3) + ")";       string widener = ([ 0:"",    1:"\nint \x30c6\x30b9\x30c8=0;\n",    2:"\nint \x10001=0;\n" ])[shift%3];       widener += "#pragma strict_types\n";       if(test[-1]!='\n') test+="\n";       int computed_line=sizeof(test/"\n");
pike.git/bin/test_pike.pike:407:    {    if(sscanf(gnapp[e],"%*d"))    {    computed_line=0;    break;    }    }    string linetester="int __cpp_line=__LINE__; int __rtl_line=[int]backtrace()[-1][1];\n";       string to_compile = test + linetester + widener; +  +  if((shift/3)&1) +  { +  fname+=" (CRNL)"; +  to_compile=replace(to_compile,"\n","\r\n"); +  } +     switch(type)    {    case "COMPILE":    _dmalloc_set_name(fname,0);    if(catch(compile_string(to_compile, fname)))    {    _dmalloc_set_name();    werror(fname + " failed.\n");    bzot(test);    errors++;