diff options
author | Björn Gustavsson <[email protected]> | 2019-05-21 09:02:00 +0200 |
---|---|---|
committer | Björn Gustavsson <[email protected]> | 2019-05-29 16:31:06 +0200 |
commit | 5fef9df3faf0504c5c281a5720b992c19c94a6c2 (patch) | |
tree | 6722280600acf117b75148507b710eb28ee213e2 /lib/erl_interface/test/ei_print_SUITE.erl | |
parent | 3d7b35dcc7852ec735f39a66566f80f8dad65701 (diff) | |
download | otp-5fef9df3faf0504c5c281a5720b992c19c94a6c2.tar.gz otp-5fef9df3faf0504c5c281a5720b992c19c94a6c2.tar.bz2 otp-5fef9df3faf0504c5c281a5720b992c19c94a6c2.zip |
Teach ei_print_term() to print funs
Diffstat (limited to 'lib/erl_interface/test/ei_print_SUITE.erl')
-rw-r--r-- | lib/erl_interface/test/ei_print_SUITE.erl | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/lib/erl_interface/test/ei_print_SUITE.erl b/lib/erl_interface/test/ei_print_SUITE.erl index 9d88a28102..f2a2548183 100644 --- a/lib/erl_interface/test/ei_print_SUITE.erl +++ b/lib/erl_interface/test/ei_print_SUITE.erl @@ -26,7 +26,8 @@ -export([all/0, suite/0, init_per_testcase/2, - atoms/1, tuples/1, lists/1, strings/1, maps/1]). + atoms/1, tuples/1, lists/1, strings/1, + maps/1, funs/1]). -import(runner, [get_term/1]). @@ -37,7 +38,7 @@ suite() -> [{ct_hooks,[ts_install_cth]}]. all() -> - [atoms, tuples, lists, strings, maps]. + [atoms, tuples, lists, strings, maps, funs]. init_per_testcase(Case, Config) -> runner:init_per_testcase(?MODULE, Case, Config). @@ -152,3 +153,13 @@ maps(Config) -> runner:recv_eot(P), ok. + +funs(Config) -> + P = runner:start(Config, ?funs), + + {term, "#Fun{some_module.42.3735928559}"} = get_term(P), + {term, "#Fun{some_module.37.195935983}"} = get_term(P), + {term, "fun erlang:abs/1"} = get_term(P), + + runner:recv_eot(P), + ok. |