示例#1
0
        public void RaiseIfArityIsWrong()
        {
            Context context = new Context();
            FunctionForm form1 = this.MakeForm("f(0) -> 1.");
            FunctionForm form2 = this.MakeForm("f(1) -> 1.");
            FunctionForm form3 = this.MakeForm("f(X, Y) -> f(X-1) + f(X-2).");
            MultiFunctionForm mform = new MultiFunctionForm(new FunctionForm[] { form1, form2, form3 });

            try
            {
                mform.Evaluate(context);
                Assert.Fail();
            }
            catch (Exception ex)
            {
                Assert.AreEqual("head mismatch", ex.Message);
            }
        }
示例#2
0
        public void EvaluateWithOneForm()
        {
            Context context = new Context();
            FunctionForm form = this.MakeForm("f(0) -> 1.");
            MultiFunctionForm mform = new MultiFunctionForm(new FunctionForm[] { form });

            var result = mform.Evaluate(context);

            Assert.IsNotNull(result);
            Assert.IsInstanceOfType(result, typeof(MultiFunction));

            var mfunc = (MultiFunction)result;

            Assert.IsNotNull(mfunc.Functions);
            Assert.AreEqual(1, mfunc.Functions.Count);

            var defined = context.GetValue("f/1");

            Assert.IsNotNull(defined);
            Assert.IsInstanceOfType(defined, typeof(MultiFunction));
            Assert.AreSame(mfunc, defined);
        }