oceani: remove all UNTESTED again.

Maybe there are still more to find - we don't have 100% yet..

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

diff --git a/csrc/oceani-tests.mdc b/csrc/oceani-tests.mdc
index 4e9f4e388ea123f0c457c97830f6818df8db799f..fdf55038638216831a5ab2161cb57d13044fbe37 100644 (file)
--- a/csrc/oceani-tests.mdc
+++ b/csrc/oceani-tests.mdc
@@ -686,6 +686,15 @@ Test functions.  They don't return anything, so we need to get them to print
                angular := to_polar(32, 23)
                print angular.rho, angular.theta
 
+       func test2(n:number; s:string;) : (ret:number)
+               ret = n + $s
+
+       func random
+       return
+               n:number
+       do
+               n = 4 // xkcd:221
+
 ###### output: functions
        done
        1  done

diff --git a/csrc/oceani.mdc b/csrc/oceani.mdc
index ad0d1b5c6905e8be8c7a7867f2c4c132e35367f3..e16d56fdc80e5444b518cf6b847af34aa30d97dd 100644 (file)
--- a/csrc/oceani.mdc
+++ b/csrc/oceani.mdc
@@ -5784,7 +5784,7 @@ is a bit more interesting at this level.
                $0 = declare_function(c, $<FN, $<Ar, $<Ty, NULL, $<Bl);
        }$
        | func FuncName ( OpenScope ArgsLine ) : ( ArgsLine ) Block Newlines ${
-               $0 = declare_function(c, $<FN, $<AL, NULL, $<AL2, $<Bl);        // UNTESTED
+               $0 = declare_function(c, $<FN, $<AL, NULL, $<AL2, $<Bl);
        }$
        | func FuncName IN OpenScope Args OUT OptNL return Type Newlines do Block Newlines ${
                $0 = declare_function(c, $<FN, $<Ar, $<Ty, NULL, $<Bl);
@@ -5796,7 +5796,7 @@ is a bit more interesting at this level.
                $0 = declare_function(c, $<FN, $<Ar, NULL, $<Ar2, $<Bl);
        }$
        | func FuncName NEWLINE OpenScope return IN Args OUT OptNL do Block Newlines ${
-               $0 = declare_function(c, $<FN, NULL, NULL, $<Ar, $<Bl); // UNTESTED
+               $0 = declare_function(c, $<FN, NULL, NULL, $<Ar, $<Bl);
        }$
 
 ###### print func decls