/*
* Copyright (c) 2014, 2016, Oracle and/or its affiliates. All rights reserved.
* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
*
* This code is free software; you can redistribute it and/or modify it
* under the terms of the GNU General Public License version 2 only, as
* published by the Free Software Foundation.
*
* This code is distributed in the hope that it will be useful, but WITHOUT
* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
* FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
* version 2 for more details (a copy is included in the LICENSE file that
* accompanied this code).
*
* You should have received a copy of the GNU General Public License version
* 2 along with this work; if not, write to the Free Software Foundation,
* Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
*
* Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
* or visit www.oracle.com if you need additional information or have any
* questions.
*/
package com.oracle.truffle.api.test.vm;
import static org.junit.Assert.assertNull;
import org.junit.After;
import com.oracle.truffle.api.CallTarget;
import com.oracle.truffle.api.Truffle;
import com.oracle.truffle.api.TruffleLanguage;
import com.oracle.truffle.api.TruffleLanguage.Env;
import com.oracle.truffle.api.frame.VirtualFrame;
import com.oracle.truffle.api.nodes.Node;
import com.oracle.truffle.api.nodes.RootNode;
import com.oracle.truffle.api.source.Source;
import com.oracle.truffle.api.source.SourceSection;
import com.oracle.truffle.api.vm.PolyglotEngine;
import static org.junit.Assert.assertEquals;
import static org.junit.Assert.assertNotNull;
import static org.junit.Assert.assertTrue;
import org.junit.Test;
/**
* Bug report validating test.
* <p>
* It has been reported that calling {@link Env#importSymbol(java.lang.String)} in
* {@link TruffleLanguage TruffleLanguage.createContext(env)} yields a {@link NullPointerException}.
* <p>
* The other report was related to specifying an abstract language class in the RootNode and
* problems with debugging later on. That is what the other part of this test - once it obtains
* Debugger instance simulates.
*/
public class InitializationTest {
private PolyglotEngine vm;
@After
public void dispose() {
if (vm != null) {
vm.dispose();
vm = null;
}
}
@Test
public void checkPostInitializationInRunMethod() throws Exception {
vm = PolyglotEngine.newBuilder().build();
Source source = Source.newBuilder("accessProbeForAbstractLanguage text").mimeType("application/x-abstrlang").name("sample.txt").build();
assertEquals("Properly evaluated", 42, vm.eval(source).get());
Object global = vm.findGlobalSymbol("MyEnv").get();
assertNotNull(global);
assertTrue(global instanceof MyEnv);
MyEnv env = (MyEnv) global;
assertEquals("Post initialization hook called", 1, env.cnt);
}
private static final class MMRootNode extends RootNode {
@Child ANode node;
private final SourceSection sourceSection;
MMRootNode(TestLanguage lang, SourceSection ss) {
super(lang);
node = new ANode(42);
this.sourceSection = ss;
adoptChildren();
}
@Override
public SourceSection getSourceSection() {
return sourceSection;
}
@Override
public Object execute(VirtualFrame frame) {
return node.constant();
}
}
private static class ANode extends Node {
private final int constant;
ANode(int constant) {
this.constant = constant;
}
@Override
public SourceSection getSourceSection() {
return getRootNode().getSourceSection();
}
Object constant() {
return constant;
}
}
private static final class MyEnv {
int cnt;
void doInit() {
cnt++;
}
}
private abstract static class AbstractLanguage extends TruffleLanguage<MyEnv> {
}
@TruffleLanguage.Registration(mimeType = "application/x-abstrlang", name = "AbstrLang", version = "0.1")
public static final class TestLanguage extends AbstractLanguage {
@Override
protected MyEnv createContext(Env env) {
assertNull("Not defined symbol", env.importSymbol("unknown"));
return new MyEnv();
}
@Override
protected void initializeContext(MyEnv context) throws Exception {
context.doInit();
}
@Override
protected CallTarget parse(ParsingRequest env) {
return Truffle.getRuntime().createCallTarget(new MMRootNode(this, env.getSource().createSection(1)));
}
@Override
protected Object findExportedSymbol(MyEnv context, String globalName, boolean onlyExplicit) {
if ("MyEnv".equals(globalName)) {
return context;
}
return null;
}
@Override
protected Object getLanguageGlobal(MyEnv context) {
throw new UnsupportedOperationException();
}
@Override
protected boolean isObjectOfLanguage(Object object) {
throw new UnsupportedOperationException();
}
}
}