Mercurial > hg > truffle

annotate truffle/com.oracle.truffle.api.test/src/com/oracle/truffle/api/test/interop/ForeignAccessSingleThreadedTest.java @ 22157:dc83cc1f94f2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Using fully qualified imports
author Jaroslav Tulach <jaroslav.tulach@oracle.com>
date Wed, 16 Sep 2015 11:33:22 +0200
parents 9124ca6c46b0
children d0c672a6e632
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
21468
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
1 /*
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
2 * Copyright (c) 2012, 2015, Oracle and/or its affiliates. All rights reserved.
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
4 *
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
5 * This code is free software; you can redistribute it and/or modify it
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
6 * under the terms of the GNU General Public License version 2 only, as
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
7 * published by the Free Software Foundation.
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
8 *
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
9 * This code is distributed in the hope that it will be useful, but WITHOUT
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
10 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
11 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
12 * version 2 for more details (a copy is included in the LICENSE file that
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
13 * accompanied this code).
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
14 *
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
15 * You should have received a copy of the GNU General Public License version
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
16 * 2 along with this work; if not, write to the Free Software Foundation,
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
17 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
18 *
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
19 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
20 * or visit www.oracle.com if you need additional information or have any
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
21 * questions.
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
22 */
21969
9124ca6c46b0 ForeignAccess is singlethreaded. Accessing objects from other languages (via ForeignAccess) will only be possible from a previously selected thread.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents: 21951
diff changeset
23 package com.oracle.truffle.api.test.interop;
21468
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
24
21969
9124ca6c46b0 ForeignAccess is singlethreaded. Accessing objects from other languages (via ForeignAccess) will only be possible from a previously selected thread.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents: 21951
diff changeset
25 import com.oracle.truffle.api.CallTarget;
9124ca6c46b0 ForeignAccess is singlethreaded. Accessing objects from other languages (via ForeignAccess) will only be possible from a previously selected thread.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents: 21951
diff changeset
26 import com.oracle.truffle.api.interop.ForeignAccess;
9124ca6c46b0 ForeignAccess is singlethreaded. Accessing objects from other languages (via ForeignAccess) will only be possible from a previously selected thread.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents: 21951
diff changeset
27 import com.oracle.truffle.api.interop.Message;
9124ca6c46b0 ForeignAccess is singlethreaded. Accessing objects from other languages (via ForeignAccess) will only be possible from a previously selected thread.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents: 21951
diff changeset
28 import com.oracle.truffle.api.interop.TruffleObject;
9124ca6c46b0 ForeignAccess is singlethreaded. Accessing objects from other languages (via ForeignAccess) will only be possible from a previously selected thread.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents: 21951
diff changeset
29 import com.oracle.truffle.api.nodes.Node;
22157
dc83cc1f94f2 Using fully qualified imports
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents: 21969
diff changeset
30 import org.junit.After;
21969
9124ca6c46b0 ForeignAccess is singlethreaded. Accessing objects from other languages (via ForeignAccess) will only be possible from a previously selected thread.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents: 21951
diff changeset
31 import static org.junit.Assert.assertEquals;
9124ca6c46b0 ForeignAccess is singlethreaded. Accessing objects from other languages (via ForeignAccess) will only be possible from a previously selected thread.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents: 21951
diff changeset
32 import static org.junit.Assert.fail;
22157
dc83cc1f94f2 Using fully qualified imports
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents: 21969
diff changeset
33 import org.junit.Before;
dc83cc1f94f2 Using fully qualified imports
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents: 21969
diff changeset
34 import org.junit.Test;
21468
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
35
21969
9124ca6c46b0 ForeignAccess is singlethreaded. Accessing objects from other languages (via ForeignAccess) will only be possible from a previously selected thread.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents: 21951
diff changeset
36 public class ForeignAccessSingleThreadedTest implements ForeignAccess.Factory, TruffleObject {
9124ca6c46b0 ForeignAccess is singlethreaded. Accessing objects from other languages (via ForeignAccess) will only be possible from a previously selected thread.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents: 21951
diff changeset
37 ForeignAccess fa;
9124ca6c46b0 ForeignAccess is singlethreaded. Accessing objects from other languages (via ForeignAccess) will only be possible from a previously selected thread.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents: 21951
diff changeset
38 private int cnt;
21468
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
39
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
40 @Before
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
41 public void initInDifferentThread() throws InterruptedException {
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
42 Thread t = new Thread("Initializer") {
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
43 @Override
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
44 public void run() {
21969
9124ca6c46b0 ForeignAccess is singlethreaded. Accessing objects from other languages (via ForeignAccess) will only be possible from a previously selected thread.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents: 21951
diff changeset
45 fa = ForeignAccess.create(ForeignAccessSingleThreadedTest.this);
21468
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
46 }
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
47 };
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
48 t.start();
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
49 t.join();
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
50 }
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
51
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
52 @Test(expected = IllegalStateException.class)
21969
9124ca6c46b0 ForeignAccess is singlethreaded. Accessing objects from other languages (via ForeignAccess) will only be possible from a previously selected thread.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents: 21951
diff changeset
53 public void accessNodeFromWrongThread() {
9124ca6c46b0 ForeignAccess is singlethreaded. Accessing objects from other languages (via ForeignAccess) will only be possible from a previously selected thread.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents: 21951
diff changeset
54 Node n = Message.IS_EXECUTABLE.createNode();
9124ca6c46b0 ForeignAccess is singlethreaded. Accessing objects from other languages (via ForeignAccess) will only be possible from a previously selected thread.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents: 21951
diff changeset
55 Object ret = ForeignAccess.execute(n, null, this);
9124ca6c46b0 ForeignAccess is singlethreaded. Accessing objects from other languages (via ForeignAccess) will only be possible from a previously selected thread.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents: 21951
diff changeset
56 fail("Should throw an exception: " + ret);
21468
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
57 }
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
58
21969
9124ca6c46b0 ForeignAccess is singlethreaded. Accessing objects from other languages (via ForeignAccess) will only be possible from a previously selected thread.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents: 21951
diff changeset
59 @After
9124ca6c46b0 ForeignAccess is singlethreaded. Accessing objects from other languages (via ForeignAccess) will only be possible from a previously selected thread.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents: 21951
diff changeset
60 public void noCallsToFactory() {
9124ca6c46b0 ForeignAccess is singlethreaded. Accessing objects from other languages (via ForeignAccess) will only be possible from a previously selected thread.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents: 21951
diff changeset
61 assertEquals("No calls to accessMessage or canHandle", 0, cnt);
21468
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
62 }
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
63
21969
9124ca6c46b0 ForeignAccess is singlethreaded. Accessing objects from other languages (via ForeignAccess) will only be possible from a previously selected thread.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents: 21951
diff changeset
64 @Override
9124ca6c46b0 ForeignAccess is singlethreaded. Accessing objects from other languages (via ForeignAccess) will only be possible from a previously selected thread.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents: 21951
diff changeset
65 public boolean canHandle(TruffleObject obj) {
9124ca6c46b0 ForeignAccess is singlethreaded. Accessing objects from other languages (via ForeignAccess) will only be possible from a previously selected thread.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents: 21951
diff changeset
66 cnt++;
9124ca6c46b0 ForeignAccess is singlethreaded. Accessing objects from other languages (via ForeignAccess) will only be possible from a previously selected thread.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents: 21951
diff changeset
67 return true;
21468
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
68 }
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
69
21969
9124ca6c46b0 ForeignAccess is singlethreaded. Accessing objects from other languages (via ForeignAccess) will only be possible from a previously selected thread.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents: 21951
diff changeset
70 @Override
9124ca6c46b0 ForeignAccess is singlethreaded. Accessing objects from other languages (via ForeignAccess) will only be possible from a previously selected thread.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents: 21951
diff changeset
71 public CallTarget accessMessage(Message tree) {
9124ca6c46b0 ForeignAccess is singlethreaded. Accessing objects from other languages (via ForeignAccess) will only be possible from a previously selected thread.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents: 21951
diff changeset
72 cnt++;
9124ca6c46b0 ForeignAccess is singlethreaded. Accessing objects from other languages (via ForeignAccess) will only be possible from a previously selected thread.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents: 21951
diff changeset
73 return null;
9124ca6c46b0 ForeignAccess is singlethreaded. Accessing objects from other languages (via ForeignAccess) will only be possible from a previously selected thread.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents: 21951
diff changeset
74 }
9124ca6c46b0 ForeignAccess is singlethreaded. Accessing objects from other languages (via ForeignAccess) will only be possible from a previously selected thread.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents: 21951
diff changeset
75
9124ca6c46b0 ForeignAccess is singlethreaded. Accessing objects from other languages (via ForeignAccess) will only be possible from a previously selected thread.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents: 21951
diff changeset
76 @Override
9124ca6c46b0 ForeignAccess is singlethreaded. Accessing objects from other languages (via ForeignAccess) will only be possible from a previously selected thread.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents: 21951
diff changeset
77 public ForeignAccess getForeignAccess() {
9124ca6c46b0 ForeignAccess is singlethreaded. Accessing objects from other languages (via ForeignAccess) will only be possible from a previously selected thread.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents: 21951
diff changeset
78 return fa;
21468
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
79 }
99942eac9c6d Introducing TruffleVM - a central place to invoke code in any registered TruffleLanguage.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents:
diff changeset
80 }