diff options
| author | Siri Hansen <[email protected]> | 2017-06-30 14:32:01 +0200 |
|---|---|---|
| committer | Siri Hansen <[email protected]> | 2017-09-05 11:26:24 +0200 |
| commit | e1310b8f92a14809dccfca1100a4bf22921991b4 (patch) | |
| tree | b93043aef49d533fdea8d19952be72378ac12256 /lib/observer/test/crashdump_helper_unicode.erl | |
| parent | 5c5bd9e0fa4d01382da91ed146b651aa9b212d4a (diff) | |
| download | otp-e1310b8f92a14809dccfca1100a4bf22921991b4.tar.gz otp-e1310b8f92a14809dccfca1100a4bf22921991b4.tar.bz2 otp-e1310b8f92a14809dccfca1100a4bf22921991b4.zip | |
observer: Improve handling of Unicode
Diffstat (limited to 'lib/observer/test/crashdump_helper_unicode.erl')
| -rw-r--r-- | lib/observer/test/crashdump_helper_unicode.erl | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/lib/observer/test/crashdump_helper_unicode.erl b/lib/observer/test/crashdump_helper_unicode.erl new file mode 100644 index 0000000000..60c3d20315 --- /dev/null +++ b/lib/observer/test/crashdump_helper_unicode.erl @@ -0,0 +1,22 @@ +-module(crashdump_helper_unicode). +-behaviour(gen_server). +-export([start/0, init/1, handle_call/3, handle_cast/2]). +-record(state, {s,a,b,lb}). + +start() -> + gen_server:start({local, 'unicode_reg_name_αβ'}, ?MODULE, [], []). + +init([]) -> + process_flag(trap_exit, true), + ets:new('tab_αβ',[set,named_table]), + Bin = <<"bin αβ"/utf8>>, + LongBin = <<"long bin αβ - a utf8 binary which can be expanded αβ"/utf8>>, + {ok, #state{s = "unicode_string_αβ", + a = 'unicode_atom_αβ', + b = Bin, + lb = LongBin}}. + +handle_call(_Info, _From, State) -> + {reply, ok, State}. +handle_cast(_Info, State) -> + {noreply, State}. |