1 files changed, 74 insertions, 0 deletions
diff --git a/lib/jinterface/test/jinterface_SUITE_data/FunEquals.java b/lib/jinterface/test/jinterface_SUITE_data/FunEquals.java
new file mode 100644
index 0000000000..3cb408994f
--- /dev/null
+++ b/lib/jinterface/test/jinterface_SUITE_data/FunEquals.java
@@ -0,0 +1,74 @@
+/*
+ * %CopyrightBegin%
+ *
+ * Copyright Ericsson AB 2004-2016. All Rights Reserved.
+ *
+ * Licensed under the Apache 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.apache.org/licenses/LICENSE-2.0
+ *
+ * Unless required by applicable law or agreed to in writing, software
+ * distributed under the License is distributed on an "AS IS" BASIS,
+ * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ * See the License for the specific language governing permissions and
+ * limitations under the License.
+ *
+ * %CopyrightEnd%
+ */
+
+import com.ericsson.otp.erlang.OtpErlangAtom;
+import com.ericsson.otp.erlang.OtpErlangFun;
+import com.ericsson.otp.erlang.OtpErlangLong;
+import com.ericsson.otp.erlang.OtpErlangObject;
+import com.ericsson.otp.erlang.OtpErlangPid;
+
+public class FunEquals {
+
+    /*
+      Implements test case jinterface_SUITE:fun_equals/1
+
+      Test the function OtpErlangFun.equals()
+    */
+
+    public static void main(String argv[]) {
+
+        OtpErlangPid pid = new OtpErlangPid("here", 4, 5, 0);
+        String module = "mod";
+        int arity = 2;
+        byte[] md5 = new byte[]{3,5,7};
+        int index = 2;
+        long old_index = 1;
+        long uniq= 2;
+        OtpErlangObject[] freeVars = new OtpErlangObject[]{
+                new OtpErlangAtom("hej"), new OtpErlangLong(9)
+            };
+
+        OtpErlangFun f1 = new OtpErlangFun(pid, module, arity, md5,
+                index, old_index, uniq, freeVars);
+        OtpErlangFun f2 = new OtpErlangFun(pid, module, arity, copyArray(md5),
+                index, old_index, uniq, copyArray(freeVars));
+
+        if(!f1.equals(f2))
+            fail(1);
+
+    }
+
+    private static void fail(int reason) {
+        System.exit(reason);
+    }
+
+    private static byte[] copyArray(byte[] source) {
+        byte[] result = new byte[source.length];
+        System.arraycopy(source, 0, result, 0, source.length);
+        return result;
+    }
+
+    private static OtpErlangObject[] copyArray(OtpErlangObject[] source) {
+        OtpErlangObject[] result = new OtpErlangObject[source.length];
+        System.arraycopy(source, 0, result, 0, source.length);
+        return result;
+    }
+
+}