diff options
author | Björn Gustavsson <[email protected]> | 2019-05-14 08:15:59 +0200 |
---|---|---|
committer | Björn Gustavsson <[email protected]> | 2019-05-29 16:31:06 +0200 |
commit | 3d7b35dcc7852ec735f39a66566f80f8dad65701 (patch) | |
tree | 8a1cfb20b9e0438799db042ad6aa5dbb34001cfc /lib/erl_interface/test/ei_print_SUITE.erl | |
parent | f53097e9f856281e7d8d89dc42716fb77b26e36e (diff) | |
download | otp-3d7b35dcc7852ec735f39a66566f80f8dad65701.tar.gz otp-3d7b35dcc7852ec735f39a66566f80f8dad65701.tar.bz2 otp-3d7b35dcc7852ec735f39a66566f80f8dad65701.zip |
Teach ei_print_term() to print maps
Diffstat (limited to 'lib/erl_interface/test/ei_print_SUITE.erl')
-rw-r--r-- | lib/erl_interface/test/ei_print_SUITE.erl | 16 |
1 files changed, 13 insertions, 3 deletions
diff --git a/lib/erl_interface/test/ei_print_SUITE.erl b/lib/erl_interface/test/ei_print_SUITE.erl index c75ce55a7d..9d88a28102 100644 --- a/lib/erl_interface/test/ei_print_SUITE.erl +++ b/lib/erl_interface/test/ei_print_SUITE.erl @@ -26,7 +26,7 @@ -export([all/0, suite/0, init_per_testcase/2, - atoms/1, tuples/1, lists/1, strings/1]). + atoms/1, tuples/1, lists/1, strings/1, maps/1]). -import(runner, [get_term/1]). @@ -36,8 +36,8 @@ suite() -> [{ct_hooks,[ts_install_cth]}]. -all() -> - [atoms, tuples, lists, strings]. +all() -> + [atoms, tuples, lists, strings, maps]. init_per_testcase(Case, Config) -> runner:init_per_testcase(?MODULE, Case, Config). @@ -142,3 +142,13 @@ strings(Config) when is_list(Config) -> runner:recv_eot(P), ok. + +maps(Config) -> + P = runner:start(Config, ?maps), + + {term, "#{}"} = get_term(P), + {term, "#{key => value}"} = get_term(P), + {term, "#{key => value, another_key => {ok, 42}}"} = get_term(P), + + runner:recv_eot(P), + ok. |