pike.git/
bin/
test_pike.pike
Branch:
Tag:
Non-build tags
All tags
No tags
1999-02-20
1999-02-20 21:27:50 by Henrik Grubbström (Grubba) <grubba@grubba.org>
475a843fa47ce6eac4ce50ec4bbc335927b80ddd (
26
lines) (+
19
/-
7
)
[
Show
|
Annotate
]
Branch:
7.9
Prepared for testing of wide programs.
Rev: bin/test_pike.pike:1.17
1:
#!/usr/local/bin/pike
-
/* $Id: test_pike.pike,v 1.
16
1999/02/20
20
:
22
:
30
grubba Exp $ */
+
/* $Id: test_pike.pike,v 1.
17
1999/02/20
21
:
27
:
50
grubba Exp $ */
#include <simulate.h>
8:
#define _verify_internals() #endif
+
#define SHIFT_MAX 0 /* 3 */
+
int foo(string opt) { if(opt=="" || !opt) return 1;
168:
werror(test+"\n"); }
+
for(int shift=0;shift <= SHIFT_MAX;shift++) {
+
if(check > 1) _verify_internals();
-
string fname = argv[f] + ": Test " + (e + 1);
+
string fname = argv[f] + ": Test " + (e + 1)
+
+
" (shift " + shift + ")"
;
-
+
string widener = ([ 0:"",
+
1:"\nint \x30c6\x30b9\x30c8=0;\n",
+
2:"\nint \x10001=0;\n" ])[shift];
+
switch(type) { case "COMPILE":
-
if(catch(compile_string(test, fname)))
+
if(catch(compile_string(test
+ widener
, fname)))
{ werror(fname + " failed.\n"); werror(test+"\n");
187:
case "COMPILE_ERROR": master()->set_inhibit_compile_errors(1);
-
if(catch(compile_string(test, fname)))
+
if(catch(compile_string(test
+ widener
, fname)))
{ successes++; }else{
200:
case "EVAL_ERROR": master()->set_inhibit_compile_errors(1);
-
if(catch(clone(compile_string(test, fname))->a()))
+
if(catch(clone(compile_string(test
+ widener
, fname))->a()))
{ successes++; }else{
212:
break; default:
-
o=clone(compile_string(test,fname));
+
o=clone(compile_string(test
+ widener
,fname));
if(check > 1) _verify_internals();
291:
if(fail && errors) exit(1);
+
}
+
if(!--end) exit(0); a=b=0;