oceani-tests: add tests for str/bool command line args

This brings test coverage over 94%

Signed-off-by: NeilBrown <neil@brown.name>

diff --git a/csrc/oceani-tests.mdc b/csrc/oceani-tests.mdc
index 5be4c5aa89d488467463974cb5a7c28f5a76c495..dfb753df6b900abb4fb5e78df710169b8ab6c879 100644 (file)
--- a/csrc/oceani-tests.mdc
+++ b/csrc/oceani-tests.mdc
@@ -70,7 +70,7 @@ arguments separated from the name by commas.  For each test, there is a section
                @mv *.gcov coverage ; [ -f .gcov ] && mv .gcov coverage
                @ awk '/NOTEST/ { next } /^ *[1-9]/ {ran+=1} /^ *###/ {skip+=1} \
                    END {printf "coverage: %6.2f%%\n", ran * 100 / (ran + skip); \
-                        if (ran < (ran + skip) *0.93) exit(1) }' \
+                        if (ran < (ran + skip) *0.94) exit(1) }' \
                        coverage/oceani.mdc.gcov
                @rm -f .tmp*
 
@@ -247,12 +247,12 @@ The demonstration code presented in the interpreted is suitable for the test sui
 Here I break it into two parts, keeping the array code separate.
 
 ###### test list
-       oceani_tests += "sayhello,55,33"
-       oceani_tests += "sayhello,12,60"
+       oceani_tests += "sayhello,55,33,hello,True"
+       oceani_tests += "sayhello,12,60,there,False"
 
 ###### test: sayhello
 
-       program A B:
+       program A B astr bbool:
                print "Hello World, what lovely oceans you have!"
                /* When a variable is defined in both branches of an 'if',
                 * and used afterwards, the variables are merged.
@@ -299,6 +299,11 @@ Here I break it into two parts, keeping the array code separate.
                        f2 = f3
                print ""
 
+               if bbool:
+                       print astr ++ " was the str"
+               else:
+                       print "I found the str over " ++ astr
+
                /* Binary search... */
                for:
                        lo:= 0; hi := 100
@@ -320,20 +325,22 @@ Here I break it into two parts, keeping the array code separate.
                case GiveUp:
                        print "Closest I found was", mid
 
-###### output: sayhello,55,33
+###### output: sayhello,55,33,hello,True
        Hello World, what lovely oceans you have!
        Is 55 bigger than 33 ?  yes
        double 33 is 66
        GCD of 55 and 33 is 11
        Fibonacci: 1 1 2 3 5 8 13 21 34 55 89 144
+       hello was the str
        Closest I found was 77.3438
 
-###### output: sayhello,12,60
+###### output: sayhello,12,60,there,False
        Hello World, what lovely oceans you have!
        Is 12 bigger than 60 ?  no
        double 60 is 120
        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
        Closest I found was 77.3438
 
 ###### test list