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.53 2001/01/01 14:11:27 mirar Exp $ */ + /* $Id: test_pike.pike,v 1.54 2001/02/21 16:31:43 mirar 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:517:       case "COMPILE_ERROR":    master()->set_inhibit_compile_errors(1);    _dmalloc_set_name(fname,0);    if(catch(compile_string(to_compile, fname)))    {    _dmalloc_set_name();    successes++;    }else{    _dmalloc_set_name(); -  werror(fname + " failed.\n"); +  werror(fname + " failed (expected compile error).\n");    bzot(test);    errors++;    }    master()->set_inhibit_compile_errors(0);    break;       case "EVAL_ERROR":    master()->set_inhibit_compile_errors(1);    _dmalloc_set_name(fname,0);   
pike.git/bin/test_pike.pike:541:    };    };    if(err)    {    _dmalloc_set_name();    successes++;    if(verbose>2)    werror("Time in a(): %f\n",at);    }else{    _dmalloc_set_name(); -  werror(fname + " failed.\n"); +  werror(fname + " failed (expected eval error).\n");    bzot(test);    errors++;    }    master()->set_inhibit_compile_errors(0);    break;       default:    if (err = catch{    _dmalloc_set_name(fname,0);    o=clone(compile_string(to_compile,fname));