tests:: oceani_test_suite
oceani_test_suite: oceani coverage_oceani
- @./parsergen --report --LR1 --tag Parser oceani.mdc | grep " - no conflicts" > /dev/null || \
- { echo "Grammar container conflicts, please review" ; exit 1; }
+ @echo -n Checking grammar ...
+ @./parsergen --report --LALR --tag Parser oceani.mdc | grep " - no conflicts" > /dev/null || \
+ { echo "Grammar contains conflicts, please review" ; exit 1; }
+ @echo ok
@rm -rf coverage; mkdir -p coverage
@cp *.gcno coverage
@for T in $(oceani_tests); do \
echo -n "printing.. "; \
echo '``````' > .tmp.code1; echo '``````' > .tmp.code2 ;\
./oceani --noexec --print --section "test: $$t" oceani-tests.mdc >> .tmp.code1; \
- ./oceani --noexec --print .tmp.code1 >> .tmp.code2 ;\
+ ./oceani --noexec --print .tmp.code1 >> .tmp.code2 || exit 1;\
if ! cmp -s .tmp.code1 .tmp.code2; then \
echo " Failed"; diff -u .tmp.code1 .tmp.code2; exit 1 ; fi ; \
+ echo -n "extra-newlines.. "; \
+ sed -e 'i\
+ ' .tmp.code1 > .tmp.code1a; \
+ echo '``````' > .tmp.code2a ;\
+ ./oceani --noexec --print .tmp.code1a >> .tmp.code2a || exit 1;\
+ if ! cmp -s .tmp.code1 .tmp.code2a; then \
+ echo " Failed"; diff -u .tmp.code1 .tmp.code2a; exit 1; fi ; \
echo -n "exec-after-print.. "; \
./oceani .tmp.code1 $${1+"$$@"} > .tmp.have ; \
if ! cmp -s .tmp.want .tmp.have; then \
## test code
+ @for i in coverage/#*.gcda; do mv $$i coverage/$${i##*#}; done
@gcov -o coverage oceani.mdc > /dev/null 2> /dev/null
- @mv *.gcov coverage ; [ -f .gcov ] && mv .gcov coverage
+ @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) }' \
print "Close enough"
print "lower" if 355/113 < pi else "higher"
+ if pi > 3 then print "pi exceeds three"; else print "need more pie"
+ if (pi < 3) { print "not enough pi" } else { print "pi sufficient" }
+ for { i := 0; sum := 0 }
+ then { i = i+1 }
+ while i <= 10:
+ sum = sum + i
+ else:
+ pass
+ print "sum 1..10 is", sum
+
###### output: cond_loop
Success
1 2 4 8 16 32 64
I won't calculate 20 / 9
Close enough
higher
+ pi exceeds three
+ pi sufficient
+ sum 1..10 is 55
## Say Hello
if then else while do
###### output: syn1
- .tmp.code:3:11: error: unhandled parse error: then
- oceani: no program found.
+ .tmp.code:3:11: Syntax error in statement: then
###### test: tokerr
program:
.tmp.code:28:16: error: expected string found Boolean
.tmp.code:29:12: error: have number but need string
.tmp.code:7:8: info: variable 'c' was set as string here.
- .tmp.code:32:8: error: field reference attempted on label, not a struct
+ .tmp.code:32:8: error: variable used but not declared: foo
+ .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
oceani: type error in program - not running.
print a, b, c
###### output: type_err4
- .tmp.code:3:14: error: expected *unknown*type* (labels not permitted) but variable 'b' is label
- .tmp.code:3:14: info: this is where 'b' was set to label
- .tmp.code:3:16: error: expected label found number
- .tmp.code:3:14: info: variable 'b' was set as label here.
- .tmp.code:4:17: error: expected *unknown*type* (labels not permitted) but variable 'b' is label
- .tmp.code:3:14: info: this is where 'b' was set to label
+ .tmp.code:3:14: error: variable used but not declared: b
+ .tmp.code:3:16: error: expected none found number
+ .tmp.code:3:14: info: variable 'b' was set as none here.
oceani: type error in program - not running.
###### test list
print foo, bar
###### output: type_err_const1
- .tmp.code:3:12: error: unhandled parse error: :
- oceani: no program found.
+ .tmp.code:3:12: Syntax error in constant: :
+ .tmp.code:4:12: Syntax error in constant: :
## Test erroneous command line args