diff options
| author | Vlad Dumitrescu <[email protected]> | 2014-05-19 12:18:58 +0200 |
|---|---|---|
| committer | Vlad Dumitrescu <[email protected]> | 2014-07-21 18:02:17 +0200 |
| commit | 0725d5cdf30b740b5c90b9fd355401161f14f401 (patch) | |
| tree | 7f5295fbf8787d08a86a73e48e58ed56db86bafa /lib/jinterface/test/jinterface_SUITE.erl | |
| parent | e7e750a40ff875e6d62f1e7904470222ac8de269 (diff) | |
| download | otp-0725d5cdf30b740b5c90b9fd355401161f14f401.tar.gz otp-0725d5cdf30b740b5c90b9fd355401161f14f401.tar.bz2 otp-0725d5cdf30b740b5c90b9fd355401161f14f401.zip | |
jinterface: fix bug in equality for OtpErlangFun
Arrays (here: md5 and freeVars) must not be compared with equals, which
is broken.
Diffstat (limited to 'lib/jinterface/test/jinterface_SUITE.erl')
| -rw-r--r-- | lib/jinterface/test/jinterface_SUITE.erl | 18 |
1 files changed, 16 insertions, 2 deletions
diff --git a/lib/jinterface/test/jinterface_SUITE.erl b/lib/jinterface/test/jinterface_SUITE.erl index cb725164cd..00abc97ff5 100644 --- a/lib/jinterface/test/jinterface_SUITE.erl +++ b/lib/jinterface/test/jinterface_SUITE.erl @@ -38,7 +38,8 @@ java_exit_with_reason_any_term/1, status_handler_localStatus/1, status_handler_remoteStatus/1, status_handler_connAttempt/1, - maps/1 + maps/1, + fun_equals/1 ]). -include_lib("common_test/include/ct.hrl"). @@ -106,7 +107,8 @@ fundamental() -> register_and_whereis, % RegisterAndWhereis.java get_names, % GetNames.java boolean_atom, % BooleanAtom.java - maps % Maps.java + maps, % Maps.java + fun_equals % FunEquals.java ]. ping() -> @@ -691,6 +693,18 @@ maps(Config) when is_list(Config) -> []). %%%----------------------------------------------------------------- +fun_equals(doc) -> + ["FunEquals.java: " + "Test OtpErlangFun.equals()"]; +fun_equals(suite) -> + []; +fun_equals(Config) when is_list(Config) -> + ok = jitu:java(?config(java, Config), + ?config(data_dir, Config), + "FunEquals", + []). + +%%%----------------------------------------------------------------- %%% INTERNAL FUNCTIONS %%%----------------------------------------------------------------- send_receive(TestCaseTag,Fun,Config) -> |