/*
 **** BEGIN LICENSE BLOCK *****
 * Version: EPL 2.0/GPL 2.0/LGPL 2.1
 *
 * The contents of this file are subject to the Eclipse Public
 * License Version 2.0 (the "License"); you may not use this file
 * except in compliance with the License. You may obtain a copy of
 * the License at http://www.eclipse.org/legal/epl-v20.html
 *
 * Software distributed under the License is distributed on an "AS
 * IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
 * implied. See the License for the specific language governing
 * rights and limitations under the License.
 *
 * Copyright (C) 2009-2013 Yoko Harada <yokolet@gmail.com>
 *
 * Alternatively, the contents of this file may be used under the terms of
 * either of the GNU General Public License Version 2 or later (the "GPL"),
 * or the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
 * in which case the provisions of the GPL or the LGPL are applicable instead
 * of those above. If you wish to allow use of your version of this file only
 * under the terms of either the GPL or the LGPL, and not to allow others to
 * use your version of this file under the terms of the EPL, indicate your
 * decision by deleting the provisions above and replace them with the notice
 * and other provisions required by the GPL or the LGPL. If you do not delete
 * the provisions above, a recipient may use your version of this file under
 * the terms of any one of the EPL, the GPL or the LGPL.
 ***** END LICENSE BLOCK *****/

package org.jruby.embed.jsr223;

import java.io.StringWriter;
import java.util.Objects;
import javax.script.Bindings;
import javax.script.Compilable;
import javax.script.CompiledScript;
import javax.script.ScriptContext;
import javax.script.ScriptEngine;
import javax.script.ScriptEngineManager;
import javax.script.ScriptException;
import javax.script.SimpleBindings;
import javax.script.SimpleScriptContext;
import org.jruby.embed.AttributeName;
import org.junit.After;
import org.junit.Before;
import org.junit.Test;
import static org.junit.Assert.*;

/**
 *
 * @author Yoko Harada
 */
public class JRubyCompiledScriptTest extends BaseTest {

    @Before
    public void setUp() throws Exception {
        super.setUp();

        System.setProperty("org.jruby.embed.localcontext.scope", "threadsafe");
    }

    @After
    public void tearDown() throws Exception {
        super.tearDown();
    }

    /**
     * Test of eval method, of class Jsr223JRubyCompiledScript.
     */
    @Test
    public void testEval() throws Exception {
        JRubyEngineFactory factory = new JRubyEngineFactory();
        JRubyEngine engine = (JRubyEngine) factory.getScriptEngine();
        String script = "return \"Hello World!!!\"";

        JRubyCompiledScript instance = (JRubyCompiledScript) engine.compile(script);
        Object expResult = "Hello World!!!";
        Object result = instance.eval();
        assertEquals(expResult, result);
    }

    @Test
    public void testEvalInvalidSyntax() {
        ScriptEngine instance;
        ScriptEngineManager manager = new ScriptEngineManager();
        instance = manager.getEngineByName("jruby");
        try {
            ((Compilable) instance).compile("def foo;");
            fail("parse exception expected");
        } catch (ScriptException e) {
            assertNotNull(e.getCause());
            assertTrue(e.getCause().toString(), e.getCause() instanceof org.jruby.exceptions.SyntaxError);
        }
    }

    @Test
    public void testRaisingErrorPropagatesError() throws Exception {
        ScriptEngine instance;
        ScriptEngineManager manager = new ScriptEngineManager();
        instance = manager.getEngineByName("jruby");
        CompiledScript script = ((Compilable) instance).compile("raise NotImplementedError.new()");
        try {
            script.eval((Bindings) null); // passing null here is allowed per JSR-223 spec
            fail("exception raise expected");
        } catch (ScriptException e) {
            assertNotNull(e.getCause());
            assertTrue(e.getCause().toString(), e.getCause() instanceof org.jruby.exceptions.NotImplementedError);
        }
    }

    /**
     * Test of eval method, of class Jsr223JRubyCompiledScript.
     */
    @Test
    public void testEval_context() throws Exception {
        System.setProperty("org.jruby.embed.localvariable.behavior", "transient");

        JRubyEngineFactory factory = new JRubyEngineFactory();
        JRubyEngine engine = (JRubyEngine) factory.getScriptEngine();
        ScriptContext context = new SimpleScriptContext();
        StringWriter writer = new StringWriter();
        StringWriter errorWriter = new StringWriter();
        context.setWriter(writer);
        context.setErrorWriter(errorWriter);

        try {
            context.setAttribute("message", "Hello World!!!!!", ScriptContext.ENGINE_SCOPE);
            engine.setContext(context);
            JRubyCompiledScript script = (JRubyCompiledScript) engine.compile("puts message");
            Object expResult = "Hello World!!!!!";
            script.eval(context);
            assertEquals(expResult, writer.toString().trim());
            writer.close();
            context.removeAttribute("message", ScriptContext.ENGINE_SCOPE);

            writer = new StringWriter();
            context.setWriter(writer);
            context.setAttribute("@message", "Say Hey.", ScriptContext.ENGINE_SCOPE);
            engine.setContext(context);
            script = (JRubyCompiledScript) engine.compile("puts @message");
            script.eval(context);
            assertEquals("Say Hey.", writer.toString().trim());

            context.setAttribute("@message", "Yeah!", ScriptContext.ENGINE_SCOPE);
            engine.setContext(context);
            script.eval(context);
            assertEquals("Say Hey.\nYeah!", writer.toString().trim());
            writer.close();

            writer = new StringWriter();
            context.setWriter(writer);
            context.setAttribute("$message", "Hiya.", ScriptContext.ENGINE_SCOPE);
            engine.setContext(context);
            script = (JRubyCompiledScript) engine.compile("puts $message");
            script.eval(context);
            assertEquals("Hiya.", writer.toString().trim());
            writer.close();
        } finally {
            engine.eval("remove_instance_variable :@message");
            engine.eval("$message = nil");
            errorWriter.close();
        }
    }

    /**
     * Test of eval method, of class Jsr223JRubyCompiledScript.
     */
    @Test
    public void testEvalWithBindings() throws Exception {
        System.setProperty("org.jruby.embed.localvariable.behavior", "transient");

        JRubyEngineFactory factory = new JRubyEngineFactory();
        JRubyEngine engine = (JRubyEngine) factory.getScriptEngine();

        try {
            CompiledScript script = engine.compile("'I heard, '.concat @the_message.to_s");
            Bindings bindings = new SimpleBindings();
            Object result = script.eval(bindings);
            assertEquals("I heard, ", result);

            bindings.put("@the_message", "Saaaay Heeeey.");
            result = script.eval(bindings);
            assertEquals("I heard, Saaaay Heeeey.", result);

            script = engine.compile("'I heard: ' + $a_message.inspect");
            result = script.eval(bindings);
            assertEquals("I heard: nil", result);

            bindings = new SimpleBindings();
            bindings.put("$a_message", "Hiya, hiya, hiya");
            result = script.eval(bindings);
            assertEquals("I heard: \"Hiya, hiya, hiya\"", result);
        } finally {
            engine.eval("remove_instance_variable :@the_message");
            engine.eval("$a_message = nil");
        }
    }

    @Test
    public void testEvalWithBindingsLocalVar() throws Exception {
        System.setProperty("org.jruby.embed.localvariable.behavior", "transient");

        JRubyEngineFactory factory = new JRubyEngineFactory();
        JRubyEngine engine = (JRubyEngine) factory.getScriptEngine();
        Bindings bindings = new SimpleBindings();
        engine.setBindings(bindings, ScriptContext.ENGINE_SCOPE);
        JRubyCompiledScript script = (JRubyCompiledScript) engine.compile("sprintf(\"%4s\", sample_message)");
        Object result;
        // NOTE: compiled script can not know sample_message is meant as a local variable (isn't a method invocation)
        try {
            bindings.put("sample_message", "foo"); // no effect since script was 'compiled' (parsed) already
            result = script.eval(bindings);
            fail("script expected to fail but returned: " + result);
        } catch (ScriptException e) {
            assertTrue(Objects.toString(e.getCause()), e.getCause() instanceof org.jruby.exceptions.NameError);
            assertTrue(e.getCause().getMessage(), e.getCause().getMessage().contains("undefined local variable or method 'sample_message'"));
        }
    }

    /**
     * Test of getEngine method, of class Jsr223JRubyCompiledScript.
     */
    @Test
    public void testGetEngine() throws ScriptException {
        JRubyEngineFactory factory = new JRubyEngineFactory();
        JRubyEngine engine = (JRubyEngine) factory.getScriptEngine();
        String script = "puts \"Hello World!!!\"";
        JRubyCompiledScript instance = (JRubyCompiledScript) engine.compile(script);

        Object expResult = "JSR 223 JRuby Engine";
        Object result = instance.getEngine().getFactory().getEngineName();
        assertEquals(expResult, result);
    }

    @Test
    public void testTerminate() throws ScriptException {
        JRubyEngine engine;
        synchronized (this) {
            System.setProperty("org.jruby.embed.localcontext.scope", "singlethread");
            System.setProperty("org.jruby.embed.localvariable.behavior", "transient");
            JRubyEngineFactory factory = new JRubyEngineFactory();
            engine = (JRubyEngine) factory.getScriptEngine();
        }
        engine.eval("$x='GVar'");
        StringWriter writer = new StringWriter();
        engine.getContext().setWriter(writer);
        String script = "at_exit { puts \"#{$x} in an at_exit block\" }";
        engine.getContext().setAttribute(AttributeName.TERMINATION.toString(), false, ScriptContext.ENGINE_SCOPE);
        JRubyCompiledScript instance = (JRubyCompiledScript) engine.compile(script);

        instance.eval();
        Object expResult = "";
        assertEquals(expResult, writer.toString().trim());

        writer = new StringWriter();
        engine.getContext().setWriter(writer);
        engine.getContext().setAttribute(AttributeName.TERMINATION.toString(), true, ScriptContext.ENGINE_SCOPE);
        expResult = "GVar in an at_exit block";
        engine.compile("").eval();
        assertEquals(expResult, writer.toString().trim());
        engine.getContext().setAttribute(AttributeName.TERMINATION.toString(), false, ScriptContext.ENGINE_SCOPE);
    }

}
