Application: gvSIG desktop

    public void testLambda1() throws ParseException {

        SymbolTable symbolTable = createSymbolTable();

        Compiler compiler = createCompiler();

        Interpreter interpreter = createInterpreter(symbolTable);

        String source = "begin set x to 10 ; set fn = lambda : x * 2; fn(); end";

        Code code = compiler.compileExpression(source);

        assertEquals("BLOCK(LET('x', 10), LET('fn', CREATE_FUNCTION(NULL, (\"x\" * 2))), fn())", code.toString());

        Object v = interpreter.run(code);

        assertEquals(20, ((Number)v).intValue());

    }

    public void testLambda1WithArgs() throws ParseException {

        SymbolTable symbolTable = createSymbolTable();

        Compiler compiler = createCompiler();

        Interpreter interpreter = createInterpreter(symbolTable);

        String source = "begin set x to 10 ; set fn = lambda n : (x * 2) + n; fn(3); end";

        Code code = compiler.compileExpression(source);

        assertEquals("BLOCK(LET('x', 10), LET('fn', CREATE_FUNCTION(LIST('n'), ((\"x\" * 2) + \"n\"))), fn(3))", code.toString());

        Object v = interpreter.run(code);

        assertEquals(23, ((Number)v).intValue());

    }