diff options
| author | Rickard Green <[email protected]> | 2017-08-23 14:26:23 +0200 |
|---|---|---|
| committer | Rickard Green <[email protected]> | 2017-08-23 14:26:23 +0200 |
| commit | db8fba1aace21af71e015e2620ed6e7c1a5bfab2 (patch) | |
| tree | b270e4ab7bf4c09342400c1fbfcdcd5264cec45f /erts/emulator/test | |
| parent | 8453bda5805bc8a2d4709b5d15643fb0512a8a23 (diff) | |
| parent | d50bc5031eb0889c894bf20f5206cfc06162f30a (diff) | |
| download | otp-db8fba1aace21af71e015e2620ed6e7c1a5bfab2.tar.gz otp-db8fba1aace21af71e015e2620ed6e7c1a5bfab2.tar.bz2 otp-db8fba1aace21af71e015e2620ed6e7c1a5bfab2.zip | |
Merge branch 'maint'
* maint:
Unicode support for erlang:display_string/1
Diffstat (limited to 'erts/emulator/test')
| -rw-r--r-- | erts/emulator/test/bif_SUITE.erl | 26 |
1 files changed, 24 insertions, 2 deletions
diff --git a/erts/emulator/test/bif_SUITE.erl b/erts/emulator/test/bif_SUITE.erl index 4908ac410c..2320870a0e 100644 --- a/erts/emulator/test/bif_SUITE.erl +++ b/erts/emulator/test/bif_SUITE.erl @@ -24,7 +24,7 @@ -include_lib("kernel/include/file.hrl"). -export([all/0, suite/0, - display/1, display_huge/0, + display/1, display_huge/0, display_string/1, erl_bif_types/1,guard_bifs_in_erl_bif_types/1, shadow_comments/1,list_to_utf8_atom/1, specs/1,improper_bif_stubs/1,auto_imports/1, @@ -43,7 +43,7 @@ all() -> [erl_bif_types, guard_bifs_in_erl_bif_types, shadow_comments, specs, improper_bif_stubs, auto_imports, t_list_to_existing_atom, os_env, otp_7526, - display, list_to_utf8_atom, + display, display_string, list_to_utf8_atom, atom_to_binary, binary_to_atom, binary_to_existing_atom, erl_crash_dump_bytes, min_max, erlang_halt, is_builtin, error_stacktrace, error_stacktrace_during_call_trace]. @@ -68,6 +68,28 @@ deeep(N,Acc) -> deeep(N) -> deeep(N,[hello]). +display_string(Config) when is_list(Config) -> + true = erlang:display_string("hej"), + true = erlang:display_string(""), + true = erlang:display_string("hopp"), + true = erlang:display_string("\n"), + true = erlang:display_string(lists:seq(1100,1200)), + {error,badarg} = try + erlang:display_string(atom), + ok + catch + T0:E0 -> + {T0, E0} + end, + {error,badarg} = try + erlang:display_string(make_ref()), + ok + catch + T1:E1 -> + {T1, E1} + end, + ok. + erl_bif_types(Config) when is_list(Config) -> ensure_erl_bif_types_compiled(), |