@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.9495) exit(1) }' \
+ if (ran < (ran + skip) *0.95) exit(1) }' \
coverage/oceani.mdc.gcov
@rm -f .tmp*
###### test: valvar
- program:
+ func main
+ argv:[argc::]string
+ do
a := 23; b:=12 ; b1 := -b
print a, b, a+b, a-b, a*b, a/b, a%b
print a<b, a<=b, a>b, a>=b, a<a, a==b, a==a
###### test: setvar
- program:
+ func main()
a := 4
a = a * a
a = (a + a) * (a + a)
cake ::= "The cake is"
++ " a lie"
- program:
+ func main()
print "Hello World, what lovely oceans you have!"
print "are there", five, "?"
print pi, pie, "but", cake
###### test: varmerge
- program:
+ func main()
for i:=0; then i=i+1; while i < 5:
switch i:
case 0: num:="zero"
###### test: cond_loop
- program:
+ func main()
a := 4
if a < 5:
print "Success"
###### test: sayhello
- program ac av:
+ func main(av:[ac::number]string)
A := $av[1]; B := $av[2]
astr := av[3]
bbool := av[ac-1] == "True"
###### test list
oceani_tests += "insert_sort"
###### test: insert_sort
- program:
+ func main()
size::=55
list:[size]number
list[0] = 1_234
###### test: arrays
- program:
+ func main()
bools:[5]Boolean
strings:[4]string
struct baz { a:number; b:Boolean; }
- program:
+ func main
+ do
info:[4]foo
for i:=0; then i=i+1; while i < 4:
###### test: syn1
- program:
+ func main()
if then else while do
###### output: syn1
.tmp.code:3:11: Syntax error in statement: then
###### test: tokerr
- program:
+ func main()
a := 1i // imaginary numbers aren't understood
b:[2i]number // array sizes are handled separately
c:[3.14159]Boolean // array sizes must be integers
###### test: type_err1
- program:
+ func main()
print "hello" ++ 5, 5 ++ "hello"
b ::= 3
###### test: type_err2
- program:
+ func main()
a := 1
a := 2
a ::= 3
a: number
b:string = "hello"
- program:
+ func main()
c := "hello"
c = c + 1
c = "hello" ++ (True and False)
foo.c = 43
print c.foo
print bar.c
+ print bar.b + 42
+
+
+ // trigger 'labels not permitted' error message
+ while 1 if True else False:
+ print
+ case 2: print "two"
###### output: type_err3
.tmp.code:8:12: error: expected number but variable 'c' is string
.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
+ .tmp.code:35:17: error: have string but need number
+ .tmp.code:39:29: error: expected number (labels not permitted) found Boolean
oceani: type error in program - not running.
###### test: type_err4
- program:
+ func main()
a:=1; b=2; c::=3
print a, b, c
bar ::= "string" + 56
const
bar ::= "baz"
- program:
+ func main()
foo := 4
print foo, bar
+ // trigger duplicate-main error
+ func main()
+ foo := 6
+ print bar, foo
+
###### output: type_err_const
.tmp.code:4:16: error: expected number found string
.tmp.code:6:8: error: name already declared: bar
.tmp.code:4:8: info: this is where 'bar' was first declared
.tmp.code:8:8: error: variable 'foo' redeclared
.tmp.code:3:8: info: this is where 'foo' was first declared
+ .tmp.code:13:8: error: variable 'foo' redeclared
+ .tmp.code:3:8: info: this is where 'foo' was first declared
+ .tmp.code:13:8: "main" defined a second time
###### test: type_err_const1
const
foo : number = 45
bar := "string"
- program:
+ func main()
foo := 4
print foo, bar
foo::="bar"
###### output: missing_program
- oceani: no program found.
+ oceani: no main function found.
## Test erroneous command line args