@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.948) exit(1) }' \
+ if (ran < (ran + skip) *0.958) exit(1) }' \
coverage/oceani.mdc.gcov
@rm -f .tmp*
else
pass
print "sum 1..10 is", sum
+ if
+ PI1 := 22/7
+ use PI1 < pi
+ then
+ print "Smaller"
+ else
+ print 'larger'
###### output: cond_loop
Success
pi exceeds three
pi sufficient
sum 1..10 is 55
+ larger
## Say Hello
a : number
a = A;
b:number = B
+ print "still", bigger // check for regression in scoping
if a > 0 and b > 0:
while a != b:
if a < b:
Hello World, what lovely oceans you have!
Is 55 bigger than 33 ? yes
double 33 is 66
+ still yes
GCD of 55 and 33 is 11
Fibonacci: 1 1 2 3 5 8 13 21 34 55 89 144
hello was the str
Hello World, what lovely oceans you have!
Is 12 bigger than 60 ? no
double 60 is 120
+ still no
GCD of 12 and 60 is 12
Fibonacci: 1 1 2 3 5 8 13 21 34 55 89 144
I found the str over there