polserver/testsuite/escript/bug/bug005.src

const EXPR_ZERO := 0;

function A(key)
var wtype;
var sev;

      if (!EXPR_ZERO)
        B();
      else
        foreach v in { 4,5,6 }
            C();
        endforeach
      endif
      sev := 7;

endfunction

function B()
endfunction

function C()
endfunction

program foo()
    A(4);
    print("ok");
endprogram
found a testsuite in the cvs, last change was somewhere in 2003... damn it updated the scripttests to current escript we need more tests!!! and we need to pimp the whole teststructure :) HowTo: compile runecl, ecompile compile bcomp change to vs cmdprompt and go to escript dir "nmake" runs the tests "nmake clean" - cleans them ... to run the test with x64 modify the makefile 2011-12-29 21:42:26 +00:00			`const EXPR_ZERO := 0;`

			`function A(key)`
			`var wtype;`
			`var sev;`

			`if (!EXPR_ZERO)`
			`B();`
			`else`
			`foreach v in { 4,5,6 }`
			`C();`
			`endforeach`
			`endif`
			`sev := 7;`

			`endfunction`

			`function B()`
			`endfunction`

			`function C()`
			`endfunction`

			`program foo()`
			`A(4);`
Unit tests: full revision, now all run correctly - Added missing ones - Reviewed obsoleted ones - Disabled/deleted unnecessary ones - Added support for compile error checking - Added support for run error checking 2015-12-19 05:31:23 +01:00			`print("ok");`
found a testsuite in the cvs, last change was somewhere in 2003... damn it updated the scripttests to current escript we need more tests!!! and we need to pimp the whole teststructure :) HowTo: compile runecl, ecompile compile bcomp change to vs cmdprompt and go to escript dir "nmake" runs the tests "nmake clean" - cleans them ... to run the test with x64 modify the makefile 2011-12-29 21:42:26 +00:00			`endprogram`