Remove excess blank lines

[ocean] / csrc / oceani-tests.mdc

diff --git a/csrc/oceani-tests.mdc b/csrc/oceani-tests.mdc
index 5be4c5aa89d488467463974cb5a7c28f5a76c495..d7253b354e079c433ad5289bd3ce7ee18b9c7840 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*
 
@@ -98,7 +98,6 @@ calculations on them.
 ###### test list
        oceani_tests += "valvar"
 
-
 ###### test: valvar
 
        program:
@@ -115,6 +114,13 @@ calculations on them.
 
                aconst :: string = "unchanging"
 
+               // Check wrapping
+               print
+                 a + b
+                 + (a*2)
+                 + b1
+                 + b
+
 ###### output: valvar
 
        23 12 35 11 276 1.91667 11
@@ -122,6 +128,7 @@ calculations on them.
        23 12 12 -23 -12 12
        False True True False False False
        This is a string  field theory This is a string field theory
+       81
 
 Next we change the value of variables
 
@@ -247,12 +254,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 +306,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 +332,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
@@ -782,7 +796,6 @@ various places that `type_err()` are called.
        .tmp.code:3:12: error: unhandled parse error: :
        oceani: no program found.
 
-
 ## Test erroneous command line args
 
 To improve coverage, we want to test correct handling of strange command
@@ -805,7 +818,6 @@ command list possible.
            ./coverage_oceani $${1+"$$@"} > /dev/null 2>&1 ;\
        done || true
 
-
 ###### test list
        oceani_special_tests += "cmd"
        oceani_special_tests += "cmd,-zyx"