blob: 9df01981b281e1d93d01ce9dff640b2256fd060f (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
/*
* %CopyrightBegin%
*
* Copyright Ericsson AB 2004-2010. All Rights Reserved.
*
* The contents of this file are subject to the Erlang Public License,
* Version 1.1, (the "License"); you may not use this file except in
* compliance with the License. You should have received a copy of the
* Erlang Public License along with this software. If not, it can be
* retrieved online at http://www.erlang.org/.
*
* 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.
*
* %CopyrightEnd%
*/
import com.ericsson.otp.erlang.*;
class RegisterAndWhereis {
/*
Implements test case jinterface_SUITE:register_and_whereis/1
*/
public static void main(String argv[]) {
try {
OtpNode node = new OtpNode("javanode");
OtpMbox mbox1 = node.createMbox();
mbox1.registerName("mbox1");
OtpMbox mbox2 = node.createMbox("mbox2");
OtpMbox mbox3 = node.createMbox();
node.registerName("mbox3",mbox3);
OtpErlangPid pid1 = mbox1.self();
OtpErlangPid pid2 = mbox2.self();
OtpErlangPid pid3 = mbox3.self();
if (!pid1.equals(node.whereis("mbox1"))) fail(1);
if (!pid1.equals(mbox1.whereis("mbox1"))) fail(2);
if (!pid1.equals(mbox2.whereis("mbox1"))) fail(3);
if (!pid1.equals(mbox3.whereis("mbox1"))) fail(4);
if (!pid2.equals(node.whereis("mbox2"))) fail(5);
if (!pid2.equals(mbox2.whereis("mbox2"))) fail(6);
if (!pid3.equals(node.whereis("mbox3"))) fail(7);
if (!pid3.equals(mbox3.whereis("mbox3"))) fail(8);
node.closeMbox(mbox1);
mbox2.close();
if (node.whereis("mbox1") != null) fail(9);
if (node.whereis("mbox2") != null) fail(10);
if (mbox3.whereis("mbox1") != null) fail(11);
if (mbox3.whereis("mbox2") != null) fail(12);
mbox3.close();
if (mbox2.whereis("mbox3") != null) fail(13);
}
catch (Exception e) {
fail("" + e, 14);
}
}
private static void fail(int reason) {
System.exit(reason);
}
private static void fail(String str, int reason) {
System.out.println(str);
System.exit(reason);
}
}
|
