X-Git-Url: https://ocean-lang.org/code/?p=ocean;a=blobdiff_plain;f=csrc%2Foceani-tests.mdc;h=6be6a153f008e7e3f1300e592c7ea3f3d69ef350;hp=2433cce68593ee7f01153beec063927f4259b05f;hb=875d537b75aadc54c94d41585248d0377c6816cc;hpb=6a546ea265d0ee30152298463e9e7b7c2f53b3b0 diff --git a/csrc/oceani-tests.mdc b/csrc/oceani-tests.mdc index 2433cce..6be6a15 100644 --- a/csrc/oceani-tests.mdc +++ b/csrc/oceani-tests.mdc @@ -80,7 +80,7 @@ arguments separated from the name by commas. For each test, there is a section @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.956) exit(1) }' \ coverage/oceani.mdc.gcov @rm -f .tmp* @@ -267,6 +267,13 @@ Now we need to test if/else and some different loops 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 @@ -285,6 +292,7 @@ Now we need to test if/else and some different loops pi exceeds three pi sufficient sum 1..10 is 55 + larger ## Say Hello