Ejemplo n.º 1
0
        public void Collections()
        {
            StackOfDictionaries <string, string> sd = new StackOfDictionaries <string, string>();

            foreach (var v in sd)
            {
                System.Diagnostics.Debug.WriteLine("0.Value " + v);
            }

            sd["l0one"] = "l0one";
            sd["l0two"] = "l0two";
            sd["v1"]    = "v1at0";

            Check.That(sd["l0one"] == "l0one").IsTrue();
            Check.That(sd["l0two"] == "l0two").IsTrue();
            Check.That(sd["v1"] == "v1at0").IsTrue();
            Check.That(sd.Count == 3).IsTrue();
            Check.That(sd.ContainsKey("v1")).IsTrue();


            sd.Push();
            sd["l1one"] = "l1one";
            sd["l1two"] = "l1two";
            sd["v1"]    = "v1at1";

            Check.That(sd["l1one"] == "l1one").IsTrue();
            Check.That(sd["l1two"] == "l1two").IsTrue();
            Check.That(sd["v1"] == "v1at1").IsTrue();
            Check.That(sd.Count == 6).IsTrue();
            Check.That(sd.ContainsKey("l0one")).IsTrue();

            foreach (var v in sd)
            {
                System.Diagnostics.Debug.WriteLine("0.Value " + v);
            }

            sd.Pop();

            Check.That(sd["l0one"] == "l0one").IsTrue();
            Check.That(sd["l0two"] == "l0two").IsTrue();
            Check.That(sd["v1"] == "v1at0").IsTrue();
            Check.That(sd.Count == 3).IsTrue();


            System.Diagnostics.Debug.WriteLine("ALL COLLECTION TESTS FINISHED");

            Dictionary <string, string> test = new Dictionary <string, string>();

            test["on"] = "oN";
            foreach (KeyValuePair <string, string> v in test)
            {
            }
        }
Ejemplo n.º 2
0
        public void EvalTestsFunc()
        {
            {       // new June 22 array syntaxer
                Dictionary <string, Object> symbols = new Dictionary <string, object>();

                Eval ev = new Eval(true, true, true, true, true);

                ev.ReturnSymbolValue = (s) =>
                {
                    System.Diagnostics.Debug.WriteLine($"Symbol {s}");
                    if (symbols.ContainsKey(s))
                    {
                        return(symbols[s]);
                    }
                    else
                    {
                        return(new StringParser.ConvertError("No such symbol '" + s + "'"));
                    }
                };

                symbols.Add("Level[0].Rings", 20L);
                symbols.Add("Level[1].Rings", 100L);
                symbols.Add("Value[1]", 1L);
                symbols.Add("index", 1L);

                Object ret = null;

                ret = ev.Evaluate("Level[index].Rings*2");
                Check.That(ret).IsNotNull();
                Check.That(ret).Equals(200);

                ret = ev.Evaluate("Level[0].Rings*2");
                Check.That(ret).IsNotNull();
                Check.That(ret).Equals(40);

                ret = ev.Evaluate("Level[1].Rings*2");
                Check.That(ret).IsNotNull();
                Check.That(ret).Equals(200);


                ret = ev.Evaluate("Level[index-1].Rings*2");
                Check.That(ret).IsNotNull();
                Check.That(ret).Equals(40);

                ret = ev.Evaluate("Level[Value[1]].Rings*2");
                Check.That(ret).IsNotNull();
                Check.That(ret).Equals(200);
            }

            {
                Eval ev = new Eval(true, true, true, true, true);           // test Fakes
                ev.Fake = true;
                ev.ReturnSymbolValue += (s) => {
                    System.Diagnostics.Debug.WriteLine($"Fake Symbol {s}");
                    return(1L);
                };
                var ret = ev.Evaluate("Level[0].Rings*2/fred+jim");
                Check.That(ret).Equals(2);
            }

            {
                Check.That(StringParser.ConvertNumber("0x") == null).IsTrue();

                Object t2 = StringParser.ConvertNumber("0x1a");
                Check.That(t2 != null && (long)t2 == 0x1a).IsTrue();
                Check.That((long)StringParser.ConvertNumber("0xFa1") == 0xfa1).IsTrue();
                Check.That((long)StringParser.ConvertNumber("%0101") == 5).IsTrue();
                Check.That((long)StringParser.ConvertNumber("%01011") == 11).IsTrue();
                Check.That((long)StringParser.ConvertNumber("`1091") == 1091).IsTrue();
                Check.That((long)StringParser.ConvertNumber("012") == 8 * 1 + 2).IsTrue();

                StringParser sp2 = new StringParser("10U20UL30 40LU 50");
                Check.That((long)sp2.ConvertNumber() == 10).IsTrue();
                Check.That((long)sp2.ConvertNumber() == 20).IsTrue();
                Check.That((long)sp2.ConvertNumber() == 30).IsTrue();
                Check.That((long)sp2.ConvertNumber() == 40).IsTrue();
                Check.That((long)sp2.ConvertNumber() == 50).IsTrue();
                Check.That(sp2.IsEOL == true).IsTrue();

                Check.That((double)StringParser.ConvertNumber("1.1", allowfp: true) == 1.1).IsTrue();
                Check.That((double)StringParser.ConvertNumber("1.932", allowfp: true) == 1.932).IsTrue();
                Check.That((double)StringParser.ConvertNumber("1.292A", allowfp: true) == 1.292).IsTrue();
                Check.That((double)StringParser.ConvertNumber("123.456", allowfp: true) == 123.456).IsTrue();
                Check.That((double)StringParser.ConvertNumber("0.456", allowfp: true) == 0.456).IsTrue();
                Check.That((double)StringParser.ConvertNumber(".456", allowfp: true) == 0.456).IsTrue();
                Check.That((double)StringParser.ConvertNumber(".456E2", allowfp: true) == 45.6).IsTrue();
                Check.That(StringParser.ConvertNumber(".456E", allowfp: true) == null).IsTrue();
                Check.That(StringParser.ConvertNumber(".E23", allowfp: true) == null).IsTrue();
                Check.That((double)StringParser.ConvertNumber("1e20", allowfp: true) == 1e20).IsTrue();
                Check.That((double)StringParser.ConvertNumber("1E20", allowfp: true) == 1e20).IsTrue();
                Check.That((double)StringParser.ConvertNumber("1E-20", allowfp: true) == 1e-20).IsTrue();
                Check.That((double)StringParser.ConvertNumber("1E-20.2", allowfp: true) == 1e-20).IsTrue();



                Check.That((string)StringParser.ConvertNumberStringSymbolChar("\"Hello there\"", allowstrings: true) == "Hello there").IsTrue();
                Check.That(((StringParser.ConvertSymbol)StringParser.ConvertNumberStringSymbolChar("_fred", allowstrings: true)).SymbolValue == "_fred").IsTrue();
                Check.That(((StringParser.ConvertSymbol)StringParser.ConvertNumberStringSymbolChar("Fr_ed", allowstrings: true)).SymbolValue == "Fr_ed").IsTrue();

                Check.That((long)StringParser.ConvertNumberStringSymbolChar("1234") == 1234).IsTrue();


                Object t1 = StringParser.ConvertNumberStringSymbolChar("'a'");
                Check.That(t1 != null && (long)t1 == 97).IsTrue();
                Check.That(((StringParser.ConvertError)StringParser.ConvertNumberStringSymbolChar("'a")).ErrorValue == "Incorrectly formatted 'c' expression").IsTrue();
                Check.That(((StringParser.ConvertError)StringParser.ConvertNumberStringSymbolChar("'")).ErrorValue == "Incorrectly formatted 'c' expression").IsTrue();


                // 0
                Check.That((long)Eval.Expr("-1234") == -1234).IsTrue();
                Check.That((double)Eval.Expr("-1234.23", allowfp: true) == -1234.23).IsTrue();
                Check.That((long)Eval.Expr("10") == 10).IsTrue();
                Check.That((long)Eval.Expr("-10") == -10).IsTrue();
                Check.That((double)Eval.Expr("-10.23") == -10.23).IsTrue();

                // 1
                Check.That((long)Eval.Expr("!10") == 0).IsTrue();
                Check.That((long)Eval.Expr("!0") == 1).IsTrue();
                Check.That((long)Eval.Expr("~10") == ~10).IsTrue();
                Check.That((long)Eval.Expr("~0") == ~0).IsTrue();

                //2
                Check.That((long)Eval.Expr(" 10 * 20") == 200).IsTrue();
                Check.That((long)Eval.Expr(" -10 * -20") == 200).IsTrue();
                Check.That((long)Eval.Expr(" 10 * -20") == -200).IsTrue();
                Check.That((long)Eval.Expr(" 10 * -20") == -200).IsTrue();
                Check.That((long)Eval.Expr(" 10 * -20 * 50") == -200 * 50).IsTrue();
                Check.That((long)Eval.Expr(" 10/20") == 0).IsTrue();
                Check.That((double)Eval.Expr(" 10.0/20") == 0.5).IsTrue();
                Check.That((double)Eval.Expr(" -10.0 / 20") == -0.5).IsTrue();
                Check.That((double)Eval.Expr(" -10.0 / 0.01") == -10 / 0.01).IsTrue();
                Check.That((long)Eval.Expr(" 10 % 20") == 10 % 20).IsTrue();
                Check.That((long)Eval.Expr(" 50 % 20") == 50 % 20).IsTrue();

                //3
                Check.That((long)Eval.Expr(" 10 + 20") == 10 + 20).IsTrue();
                Check.That((long)Eval.Expr(" 10 - 20 - 30") == 10 - 20 - 30).IsTrue();
                Check.That((long)Eval.Expr(" 10 - -20") == 30).IsTrue();
                Check.That((double)Eval.Expr(" 10.2 + 20") == 30.2).IsTrue();
                Check.That((double)Eval.Expr(" 10.2 - 10.2") == 0).IsTrue();
                Check.That((double)Eval.Expr(" 5 - 50.5") == 5 - 50.5).IsTrue();
                Check.That((string)Eval.Expr(" \"Hello\" + \"Goodbye\" ") == "HelloGoodbye").IsTrue();
                Check.That(((StringParser.ConvertError)Eval.Expr(" \"Hello\" - \"Goodbye\" ")).ErrorValue.Equals("- is not supported with strings")).IsTrue();
                Check.That(((StringParser.ConvertError)Eval.Expr(" 20 + \"Goodbye\" ")).ErrorValue.Equals("Cannot mix string and number types")).IsTrue();

                //4
                Check.That((long)Eval.Expr(" 10 << 2") == 10 << 2).IsTrue();
                Check.That((long)Eval.Expr(" 1000 >> 2") == 1000 >> 2).IsTrue();
                Check.That(((StringParser.ConvertError)Eval.Expr(" 10.2 << 20")).ErrorValue.Equals("<< and >> requires integer on left side")).IsTrue();
                Check.That(((StringParser.ConvertError)Eval.Expr(" 10 << 20.2")).ErrorValue.Equals("<< and >> requires integer on right side")).IsTrue();
                Check.That((long)Eval.Expr(" 10 - -20") == 30).IsTrue();

                //5
                Check.That((long)Eval.Expr(" 1 > 2 ") == 0).IsTrue();
                Check.That((long)Eval.Expr(" 1 < 2 ") == 1).IsTrue();
                Check.That((long)Eval.Expr(" 1 >= 2 ") == 0).IsTrue();
                Check.That((long)Eval.Expr(" 1 <= 2 ") == 1).IsTrue();
                Check.That((long)Eval.Expr(" 2 >= 2 ") == 1).IsTrue();
                Check.That((long)Eval.Expr(" 3 >= 2 ") == 1).IsTrue();
                Check.That((long)Eval.Expr(" 1.0 > 2 ") == 0).IsTrue();
                Check.That((long)Eval.Expr(" 1.0 < 2 ") == 1).IsTrue();
                Check.That((long)Eval.Expr(" 1.0 >= 2 ") == 0).IsTrue();
                Check.That((long)Eval.Expr(" 1.0 <= 2 ") == 1).IsTrue();
                Check.That((long)Eval.Expr(" 2 >= 2.0 ") == 1).IsTrue();
                Check.That((long)Eval.Expr(" 3 >= 2.0 ") == 1).IsTrue();
                Check.That((long)Eval.Expr(" \"ABC\" > \"AAA\"") == 1).IsTrue();
                Check.That((long)Eval.Expr(" \"AAA\" < \"ABC\"") == 1).IsTrue();
                Check.That((long)Eval.Expr(" \"AAA\" >= \"ABC\"") == 0).IsTrue();
                Check.That((long)Eval.Expr(" \"ABC\" >= \"ABC\"") == 1).IsTrue();

                //6
                Check.That((long)Eval.Expr(" 1 == 2 ") == 0).IsTrue();
                Check.That((long)Eval.Expr(" 2 == 1") == 0).IsTrue();
                Check.That((long)Eval.Expr(" 1 == 1 ") == 1).IsTrue();
                Check.That((long)Eval.Expr(" 1.0 == 1") == 1).IsTrue();
                Check.That((long)Eval.Expr(" 1 == 1.0 ") == 1).IsTrue();
                Check.That((long)Eval.Expr(" \"ABC\" == \"AAA\"") == 0).IsTrue();
                Check.That((long)Eval.Expr(" \"AAA\" != \"ABC\"") == 1).IsTrue();
                Check.That((long)Eval.Expr(" \"AAA\" == \"AAA\"") == 1).IsTrue();
                Check.That((long)Eval.Expr(" \"ABC\" != \"ABC\"") == 0).IsTrue();

                //7
                Check.That((long)Eval.Expr(" 1 & 2 ") == (long)(1 & 2)).IsTrue();
                Check.That((long)Eval.Expr(" 100 & 200 ") == (long)(100 & 200)).IsTrue();
                Check.That(((StringParser.ConvertError)Eval.Expr(" 10.2 & 20")).ErrorValue.Equals("& requires integer on left side")).IsTrue();
                Check.That(((StringParser.ConvertError)Eval.Expr(" 10 & 20.2")).ErrorValue.Equals("& requires integer on right side")).IsTrue();

                //8
                Check.That((long)Eval.Expr(" 1 ^ 2 ") == (long)(1 ^ 2)).IsTrue();
                Check.That((long)Eval.Expr(" 100 ^ 200 ") == (long)(100 ^ 200)).IsTrue();
                Check.That(((StringParser.ConvertError)Eval.Expr(" 10.2 ^ 20")).ErrorValue.Equals("^ requires integer on left side")).IsTrue();
                Check.That(((StringParser.ConvertError)Eval.Expr(" 10 ^ 20.2")).ErrorValue.Equals("^ requires integer on right side")).IsTrue();

                //9
                Check.That((long)Eval.Expr(" 1 | 2 ") == (long)(1 | 2)).IsTrue();
                Check.That((long)Eval.Expr(" 100 | 200 ") == (long)(100 | 200)).IsTrue();
                Check.That(((StringParser.ConvertError)Eval.Expr(" 10.2 | 20")).ErrorValue.Equals("| requires integer on left side")).IsTrue();
                Check.That(((StringParser.ConvertError)Eval.Expr(" 10 | 20.2")).ErrorValue.Equals("| requires integer on right side")).IsTrue();

                //10

                Check.That((long)Eval.Expr(" 1 && 2 ") == 1).IsTrue();
                Check.That((long)Eval.Expr(" 0 && 1 ") == 0).IsTrue();
                Check.That((long)Eval.Expr(" 0 && 0 ") == 0).IsTrue();
                Check.That(((StringParser.ConvertError)Eval.Expr(" 10.0 && 2")).ErrorValue.Equals("&& requires integer on left side")).IsTrue();
                Check.That(((StringParser.ConvertError)Eval.Expr(" 10 && 20.0")).ErrorValue.Equals("&& requires integer on right side")).IsTrue();

                //11

                Check.That((long)Eval.Expr(" 1 || 2 ") == 1).IsTrue();
                Check.That((long)Eval.Expr(" 0 || 1 ") == 1).IsTrue();
                Check.That((long)Eval.Expr(" 0 || 0 ") == 0).IsTrue();
                Check.That(((StringParser.ConvertError)Eval.Expr(" 10.0 || 2")).ErrorValue.Equals("|| requires integer on left side")).IsTrue();
                Check.That(((StringParser.ConvertError)Eval.Expr(" 10 || 20.0")).ErrorValue.Equals("|| requires integer on right side")).IsTrue();

                // Misc

                Check.That(((StringParser.ConvertError)Eval.Expr(" 1 !| 2")).ErrorValue.Equals("Extra characters after expression: !| 2")).IsTrue();
                Check.That(((StringParser.ConvertError)Eval.Expr(" \"string\"", allowstrings: false)).ErrorValue.Equals("Strings not supported")).IsTrue();

                // Brackets

                Check.That((long)Eval.Expr(" 10 * ( 2 + 3 ) ") == 10 * (2 + 3)).IsTrue();
                Check.That(((StringParser.ConvertError)Eval.Expr(" 10 * (2 + 3")).ErrorValue.Equals("Missing ) at end of expression")).IsTrue();
            }

            {
                // Symbols..
                Dictionary <string, Object> symbols = new Dictionary <string, object>();

                Eval ev = new Eval(allowfp: true, allowstrings: true);
                ev.ReturnSymbolValue = (s) =>
                {
                    if (symbols.ContainsKey(s))
                    {
                        return(symbols[s]);
                    }
                    else
                    {
                        return(new StringParser.ConvertError("No such symbol '" + s + "'"));
                    }
                };

                symbols.Add("d20", (double)20.0);
                symbols.Add("d10", (double)10.0);
                symbols.Add("i20", (long)20);
                symbols.Add("i10", (long)10);

                Check.That((long)ev.Evaluate(" i10 + i20 ") == 30).IsTrue();
                Check.That((double)ev.Evaluate(" i10 + d20 ") == 30.0).IsTrue();
                Check.That((double)ev.Evaluate(" d10 + d20 ") == 30.0).IsTrue();
                Check.That(((StringParser.ConvertError)ev.Evaluate(" i20 * i11 ")).ErrorValue.Equals("No such symbol 'i11'")).IsTrue();

                ev.SetSymbolValue = (s, o) =>
                {
                    symbols[s] = o;
                    return(o);
                };

                Check.That((long)ev.Evaluate(" i11 = 20 ") == 20).IsTrue();
                Check.That((long)ev.Evaluate(" i11 ") == 20).IsTrue();
                Check.That((long)ev.Evaluate(" ( i20 + i20 ) * i10 ") == (20 + 20) * 10).IsTrue();
                Check.That(((StringParser.ConvertError)ev.Evaluate(" 20*20 = 20")).ErrorValue.Equals("Lvalue required for = operator")).IsTrue();
                Check.That(((StringParser.ConvertError)ev.Evaluate(" l1 * l1 = 20")).ErrorValue.Equals("No such symbol 'l1'")).IsTrue();
                Check.That(((StringParser.ConvertError)ev.Evaluate(" i20 * 20 = 20")).ErrorValue.Equals("Lvalue required for = operator")).IsTrue();

                ev.ReturnFunctionValue = BaseFunctionsForEval.BaseFunctions;


                Check.That((long)ev.Evaluate(" Abs ( - 20 ) ") == 20).IsTrue();
                Check.That((double)ev.Evaluate(" Abs ( - 20.2 ) ") == 20.2).IsTrue();
                Check.That((double)ev.Evaluate(" Acos ( 1 ) ") == 0).IsTrue();
                Check.That(Math.Abs((double)ev.Evaluate(" Asin ( 1 ) ") - 1.57079) < 1E-4).IsTrue();
                Check.That(Math.Abs((double)ev.Evaluate(" Atan ( 1 ) ") - 0.78539) < 1E-4).IsTrue();
                Check.That(Math.Abs((double)ev.Evaluate(" Ceiling ( 1.99 ) ")) == 2).IsTrue();
                Check.That(Math.Abs((double)ev.Evaluate(" Cos ( 1 ) ") - 0.54030) < 1E-4).IsTrue();
                Check.That(Math.Abs((double)ev.Evaluate(" Cosh ( 1 ) ") - 1.54308) < 1E-4).IsTrue();
                Check.That(Math.Abs((double)ev.Evaluate(" Exp ( 1 ) ") - 2.71828) < 1E-4).IsTrue();
                Check.That(Math.Abs((double)ev.Evaluate(" Floor ( 1.99 ) ")) == 1).IsTrue();
                Check.That(Math.Abs((double)ev.Evaluate(" Log ( 10 ) ") - 2.3025) < 1E-4).IsTrue();
                Check.That(Math.Abs((double)ev.Evaluate(" Log10 ( 10 ) ") - 1) < 1E-4).IsTrue();
                Check.That(Math.Abs((long)ev.Evaluate(" Max ( 1,10 ) ")) == 10).IsTrue();
                Check.That(Math.Abs((long)ev.Evaluate(" Min ( 1,10 ) ")) == 1).IsTrue();
                Check.That(Math.Abs((double)ev.Evaluate(" Max ( 1,10.2 ) ")) == 10.2).IsTrue();
                Check.That(Math.Abs((double)ev.Evaluate(" Min ( 1.3,10 ) ")) == 1.3).IsTrue();
                Check.That(Math.Abs((double)ev.Evaluate(" Pow ( 2,2 ) ") - 4) < 1E-4).IsTrue();
                Check.That(((StringParser.ConvertError)ev.Evaluate(" Pow ( 2 )")).ErrorValue.Equals("Pow() requires 2 parameters minimum")).IsTrue();
                Check.That(((StringParser.ConvertError)ev.Evaluate(" Pow ( 2,3,4 )")).ErrorValue.Equals("Pow() takes 2 parameters maximum")).IsTrue();
                Check.That(Math.Abs((double)ev.Evaluate(" Round ( 1.1 ) ") - 1) < 1E-4).IsTrue();
                Check.That(Math.Abs((double)ev.Evaluate(" Round ( 1.9 ) ") - 2) < 1E-4).IsTrue();
                Check.That(((StringParser.ConvertError)ev.Evaluate(" Round (1.23456, 3.4)")).ErrorValue.Equals("Round() type mismatch in parameter 2 wanted Integer")).IsTrue();
                Check.That(Math.Abs((double)ev.Evaluate(" Round ( 1.123456, 2 ) ") - 1.12) < 1E-4).IsTrue();
                Check.That(Math.Abs((double)ev.Evaluate(" Round ( 1.123456, 4 ) ") - 1.1234) < 1E-4).IsTrue();
                Check.That(Math.Abs((long)ev.Evaluate(" Sign ( 1.123456 ) ") - 1) < 1E-4).IsTrue();
                Check.That(Math.Abs((long)ev.Evaluate(" Sign ( -1.123456 ) ") - (-1)) < 1E-4).IsTrue();
                Check.That(Math.Abs((long)ev.Evaluate(" Sign ( 0 ) ") - (0)) < 1E-4).IsTrue();
                Check.That(Math.Abs((long)ev.Evaluate(" Sign ( 1000 ) ") - (1)) < 1E-4).IsTrue();
                Check.That(Math.Abs((double)ev.Evaluate(" Sin ( 1 ) ") - 0.84147) < 1E-4).IsTrue();
                Check.That(Math.Abs((double)ev.Evaluate(" Sinh ( 1 ) ") - 1.1752) < 1E-4).IsTrue();
                Check.That(Math.Abs((double)ev.Evaluate(" Sqrt ( 10 ) ") - 3.16227) < 1E-4).IsTrue();
                Check.That(Math.Abs((double)ev.Evaluate(" Tan ( 1 ) ") - 1.5574) < 1E-4).IsTrue();
                Check.That(Math.Abs((double)ev.Evaluate(" Tanh ( 1 ) ") - 0.76159) < 1E-4).IsTrue();
                Check.That(Math.Abs((double)ev.Evaluate(" Truncate ( 1.222 ) ") - 1) < 1E-4).IsTrue();
                Check.That(Math.Abs((double)ev.Evaluate(" Fp(2) ")) == 2.0).IsTrue();
                Check.That(Math.Abs((long)ev.Evaluate(" Eval(\"2+2\") ")) == 4.0).IsTrue();

                Check.That((string)ev.Evaluate(" ToString(10,\"N1\") ") == "10.0").IsTrue();
                Check.That((string)ev.Evaluate(" ToString(10.2,\"N1\") ") == "10.2").IsTrue();

                Check.That((long)ev.Evaluate(" IsDigit('2')") == 1).IsTrue();
                Check.That((long)ev.Evaluate(" IsDigit('A')") == 0).IsTrue();
                Check.That((long)ev.Evaluate(" IsUpper('A')") == 1).IsTrue();
                Check.That((long)ev.Evaluate(" IsUpper('a')") == 0).IsTrue();
                Check.That((long)ev.Evaluate(" ToUpper('a')") == 65).IsTrue();
                Check.That((long)ev.Evaluate(" ToLower('A')") == 97).IsTrue();
                Check.That((string)ev.Evaluate(" ToLower(\"Hello\")") == "hello").IsTrue();
                Check.That((string)ev.Evaluate(" ToUpper(\"Hello\")") == "HELLO").IsTrue();
                Check.That((string)ev.Evaluate(" Unicode(65)") == "A").IsTrue();
                Check.That((string)ev.Evaluate(" Unicode(329)") == "ʼn").IsTrue();

                Check.That(((StringParser.ConvertError)ev.Evaluate(" fred ( 20 )")).ErrorValue.Equals("fred() not recognised")).IsTrue();
            }

            {
                Eval ev = new Eval(allowfp: true, allowstrings: true);
                StackOfDictionaries <string, Object> symbols = new StackOfDictionaries <string, Object>();
                UserDefinedFunctions userdef = new UserDefinedFunctions(symbols);
                userdef.BaseFunctions = BaseFunctionsForEval.BaseFunctions;

                ev.ReturnSymbolValue = (s) =>
                {
                    if (symbols.ContainsKey(s))
                    {
                        return(symbols[s]);
                    }
                    else
                    {
                        return(new StringParser.ConvertError("No such symbol '" + s + "'"));
                    }
                };

                ev.SetSymbolValue = (s, o) =>
                {
                    symbols[s] = o;
                    return(o);
                };

                ev.ReturnFunctionValue = userdef.Functions;

                userdef.Add("f1", new string[] { }, "10 + 20");

                //  Check.That((long)ev.Evaluate(" 2*f1()+10") == 70).IsTrue();

                userdef.Add("f2", new string[] { "a" }, "a + 20");

                Check.That((long)ev.Evaluate(" 2*f2( 15 )+10") == 2 * (15 + 20) + 10).IsTrue();

                userdef.Add("f3", new string[] { "a", "b", }, "a + b + 20");

                Check.That((long)ev.Evaluate(" 2*f3( 15, 34 )+10") == 2 * (15 + 34 + 20) + 10).IsTrue();

                userdef.Add("f4", new string[] { "a", "b", }, "f2(a) + b + 20");

                Check.That((long)ev.Evaluate(" 2*f4( 15, 34 )+10") == 2 * ((15 + 20) + 34 + 20) + 10).IsTrue();
            }

            System.Diagnostics.Debug.WriteLine("ALL EVAL TESTS FINISHED");
        }