diff options
| author | Hans Bolinder <[email protected]> | 2016-09-23 15:41:25 +0200 |
|---|---|---|
| committer | Hans Bolinder <[email protected]> | 2016-09-23 15:41:25 +0200 |
| commit | 8d0490a14b3cb647afe0ac3d678fcbdc19efa851 (patch) | |
| tree | 2854b2c41eac39552d929e01c8af448b8df67fee /lib/stdlib/test/edlin_expand_SUITE.erl | |
| parent | 67240584fd4594faafa9125036a13b52361f496f (diff) | |
| download | otp-8d0490a14b3cb647afe0ac3d678fcbdc19efa851.tar.gz otp-8d0490a14b3cb647afe0ac3d678fcbdc19efa851.tar.bz2 otp-8d0490a14b3cb647afe0ac3d678fcbdc19efa851.zip | |
stdlib: Add a testcase for Unicode expander
Diffstat (limited to 'lib/stdlib/test/edlin_expand_SUITE.erl')
| -rw-r--r-- | lib/stdlib/test/edlin_expand_SUITE.erl | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/lib/stdlib/test/edlin_expand_SUITE.erl b/lib/stdlib/test/edlin_expand_SUITE.erl index ccffa2e244..718d91c6a3 100644 --- a/lib/stdlib/test/edlin_expand_SUITE.erl +++ b/lib/stdlib/test/edlin_expand_SUITE.erl @@ -21,7 +21,7 @@ -export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1, init_per_testcase/2, end_per_testcase/2, init_per_group/2,end_per_group/2]). --export([normal/1, quoted_fun/1, quoted_module/1, quoted_both/1]). +-export([normal/1, quoted_fun/1, quoted_module/1, quoted_both/1, erl_1152/1]). -include_lib("common_test/include/ct.hrl"). @@ -36,7 +36,7 @@ suite() -> {timetrap,{minutes,1}}]. all() -> - [normal, quoted_fun, quoted_module, quoted_both]. + [normal, quoted_fun, quoted_module, quoted_both, erl_1152]. groups() -> []. @@ -149,5 +149,12 @@ quoted_both(Config) when is_list(Config) -> {yes,"weird-fun-name'()",[]} = do_expand("'ExpandTestCaps1':'#"), ok. +erl_1152(Config) when is_list(Config) -> + "\n"++"foo"++" "++[1089]++_ = do_format(["foo",[1089]]), + ok. + do_expand(String) -> edlin_expand:expand(lists:reverse(String)). + +do_format(StringList) -> + lists:flatten(edlin_expand:format_matches(StringList)). |