aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorHans Bolinder <[email protected]>2016-09-23 15:41:25 +0200
committerHans Bolinder <[email protected]>2016-09-23 15:41:25 +0200
commit8d0490a14b3cb647afe0ac3d678fcbdc19efa851 (patch)
tree2854b2c41eac39552d929e01c8af448b8df67fee
parent67240584fd4594faafa9125036a13b52361f496f (diff)
downloadotp-8d0490a14b3cb647afe0ac3d678fcbdc19efa851.tar.gz
otp-8d0490a14b3cb647afe0ac3d678fcbdc19efa851.tar.bz2
otp-8d0490a14b3cb647afe0ac3d678fcbdc19efa851.zip
stdlib: Add a testcase for Unicode expander
-rw-r--r--lib/stdlib/test/edlin_expand_SUITE.erl11
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)).