]> ocean-lang.org Git - ocean/blobdiff - csrc/oceani-tests.mdc
oceani: handle some more untested code.
[ocean] / csrc / oceani-tests.mdc
index 45240a2b5d20d2c70080b59936cd7186c7e45644..4e9f4e388ea123f0c457c97830f6818df8db799f 100644 (file)
@@ -221,12 +221,11 @@ Test merging of variables from multiple cases
                print
 
                for i:=0; then i=i+1; while i < 5:
-                       switch i:
-                               case 0: num:="zero"
-                               case 1: num:="one"
-                               case 2: num:="two"
-                               case 3: num:="three"
-                               else    num:="many"
+                       switch { use i }
+                               case 0: num:="zero" ;
+                               case 1: num:="one" ;
+                               case 2 { num:="two" } case 3 { num:="three" }
+                               else  num:="many"
                        // re-declare a CondScope variable
                        num := i*i
                        print num,", ",