@mv *.gcov coverage ; [ -f .gcov ] && mv .gcov coverage || true
@ awk '/NOTEST/ { next } /^ *[1-9]/ {ran+=1} /^ *###/ {skip+=1} \
END {printf "coverage: %6.2f%%\n", ran * 100 / (ran + skip); \
- if (ran < (ran + skip) *0.94) exit(1) }' \
+ if (ran < (ran + skip) *0.9495) exit(1) }' \
coverage/oceani.mdc.gcov
@rm -f .tmp*
- @for T in $(oceani_tests); do \
+ @[ -n "$$SKIP_VALGRIND" ] || for T in $(oceani_tests); do \
echo -n "Valgrind $$T.. "; \
i="$$IFS"; IFS=,; set $$T; IFS="$$i"; t=$$1; shift; \
if ! valgrind --error-exitcode=1 --log-file=.tmp.valg ./oceani --section "test: $$t" oceani-tests.mdc $${1+"$$@"} \
print num,", ",
print
+ for i:=0; then i=i+1; while i < 5:
+ switch i:
+ case 0: num:="zero"
+ case 1: num:="one"
+ case 2: num:="two"
+ case 3: num:="three"
+ else num:="many"
+ // re-declare a CondScope variable
+ num := i*i
+ print num,", ",
+ print
+
###### output: varmerge
zero , one , two , three , many ,
+ 0 , 1 , 4 , 9 , 16 ,
## Conditions and Loops
bar:foo
foo.c = 43
print c.foo
+ print bar.c
###### output: type_err3
.tmp.code:8:12: error: expected number but variable 'c' is string
.tmp.code:32:8: error: field reference attempted on none, not a struct
.tmp.code:32:16: error: expected none found number
.tmp.code:33:14: error: field reference attempted on string, not a struct
+ .tmp.code:34:14: error: cannot find requested field in foo
oceani: type error in program - not running.
###### test: type_err4
oceani: type error in program - not running.
###### test list
- oceani_failing_tests += type_err_const type_err_const1
+ oceani_failing_tests += type_err_const type_err_const1 missing_program
###### test: type_err_const
const
.tmp.code:3:12: Syntax error in constant: :
.tmp.code:4:12: Syntax error in constant: :
+###### test: missing_program
+ const
+ foo::="bar"
+
+###### output: missing_program
+ oceani: no program found.
+
## Test erroneous command line args
To improve coverage, we want to test correct handling of strange command