diff options
| author | Hans Bolinder <[email protected]> | 2017-09-21 08:03:57 +0200 |
|---|---|---|
| committer | Hans Bolinder <[email protected]> | 2017-09-21 08:03:57 +0200 |
| commit | 3693a570f4a080501801c45c127e624cd2bccb72 (patch) | |
| tree | 19524db92d93f2a6d2fcdb1f86ab1db2737ef1d4 /lib/tools/test/fprof_SUITE_data/fprof_unicode.erl | |
| parent | c5fcba8d9917d8da2a9c026cd8838657e44e58fb (diff) | |
| parent | f150c21029477836fb4b533ee02290d5b6bcc818 (diff) | |
| download | otp-3693a570f4a080501801c45c127e624cd2bccb72.tar.gz otp-3693a570f4a080501801c45c127e624cd2bccb72.tar.bz2 otp-3693a570f4a080501801c45c127e624cd2bccb72.zip | |
Merge branch 'maint'
* maint:
fprof: Make sure the receiving file can handle Unicode
Diffstat (limited to 'lib/tools/test/fprof_SUITE_data/fprof_unicode.erl')
| -rw-r--r-- | lib/tools/test/fprof_SUITE_data/fprof_unicode.erl | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/lib/tools/test/fprof_SUITE_data/fprof_unicode.erl b/lib/tools/test/fprof_SUITE_data/fprof_unicode.erl new file mode 100644 index 0000000000..8b58efc5fe --- /dev/null +++ b/lib/tools/test/fprof_SUITE_data/fprof_unicode.erl @@ -0,0 +1,36 @@ +-module(fprof_unicode). + +-export([t/0, 'кирилли́ческий атом'/0, annan/0, c_break/1, + 'кирилли́ческий атомB'/1]). + +t() -> + _Atom = 'кирилли́ческий атом', + 'кирилли́ческий атом'(). + +'кирилли́ческий атом'() -> + 'кирилли́ческий атом'('кирилли́ческий атом'). + +'кирилли́ческий атом'(_Atom) -> + self() ! 'кирилли́ческий атом', + G = fun (X) -> + catch foo:bar() + end, + G("кирилли́ческий атом"), % line 17 + Pid = spawn_link(fun() -> waiting() end), + true = register('кирилли́ческий атом', Pid), + F = fun() -> 'кирилли́ческий атом' end, + F(). + +annan() -> + foo. + +waiting() -> + receive + X -> X + end. + +c_break(_B) -> + true. + +'кирилли́ческий атомB'(_B) -> + true. |