X-Git-Url: https://ocean-lang.org/code/?p=ocean;a=blobdiff_plain;f=csrc%2Foceani-tests.mdc;h=dccfb2a47bc2bdb50f7f3a39e7c3adf09ccf1b01;hp=fc9f0bd8cbefd97ce14d9a331be67241d66c8e2d;hb=84f4783c47a0fcb74b7f46d3ff96fe8a3ad1b278;hpb=fdc93978981976920d369c57b80da002374090a5

diff --git a/csrc/oceani-tests.mdc b/csrc/oceani-tests.mdc
index fc9f0bd..dccfb2a 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.958) exit(1) }' \
+		         if (ran < (ran + skip) *0.959) exit(1) }' \
 		        coverage/oceani.mdc.gcov
 		@rm -f .tmp*
 
@@ -193,7 +193,7 @@ Test merging of variables from multiple cases
 		for i:=0; then i=i+1; while i < 5:
 			switch i:
 				case 0: num:="zero"
-				case 1: num:="one"
+				case 1: scratch:=42; num:="one"
 				case 2: num:="two"
 				case 3: num:="three"
 				else    num:="many"