diff options
| author | Hans Bolinder <[email protected]> | 2013-03-28 13:06:40 +0100 |
|---|---|---|
| committer | Hans Bolinder <[email protected]> | 2013-03-29 08:50:25 +0100 |
| commit | 852895812646c73f9bac8163e9b34acaeb62d518 (patch) | |
| tree | 0cf346dd351b73a9b040c547a570ac80ddf38b06 /lib/stdlib/test/erl_scan_SUITE.erl | |
| parent | fe7e36baf92a92198b21c698c62f61acb5dee9af (diff) | |
| download | otp-852895812646c73f9bac8163e9b34acaeb62d518.tar.gz otp-852895812646c73f9bac8163e9b34acaeb62d518.tar.bz2 otp-852895812646c73f9bac8163e9b34acaeb62d518.zip | |
Document erl_parse:abstract/2
A bug has been fixed: when given the option {encoding,utf8} a list of
floating point numbers (in the correct interval) was mistakenly
returned as a string.
Diffstat (limited to 'lib/stdlib/test/erl_scan_SUITE.erl')
| -rw-r--r-- | lib/stdlib/test/erl_scan_SUITE.erl | 19 |
1 files changed, 17 insertions, 2 deletions
diff --git a/lib/stdlib/test/erl_scan_SUITE.erl b/lib/stdlib/test/erl_scan_SUITE.erl index 7e33166c6a..361abbb771 100644 --- a/lib/stdlib/test/erl_scan_SUITE.erl +++ b/lib/stdlib/test/erl_scan_SUITE.erl @@ -22,7 +22,7 @@ init_per_group/2,end_per_group/2]). -export([ error_1/1, error_2/1, iso88591/1, otp_7810/1, otp_10302/1, - otp_10990/1]). + otp_10990/1, otp_10992/1]). -import(lists, [nth/2,flatten/1]). -import(io_lib, [print/1]). @@ -61,7 +61,7 @@ end_per_testcase(_Case, Config) -> suite() -> [{ct_hooks,[ts_install_cth]}]. all() -> - [{group, error}, iso88591, otp_7810, otp_10302, otp_10990]. + [{group, error}, iso88591, otp_7810, otp_10302, otp_10990, otp_10992]. groups() -> [{error, [], [error_1, error_2]}]. @@ -1130,6 +1130,21 @@ otp_10990(Config) when is_list(Config) -> {'EXIT',_} = (catch {foo, erl_scan:string([$",42.0,$"],1)}), ok. +otp_10992(doc) -> + "OTP-10992. List of floats to abstract format."; +otp_10992(suite) -> + []; +otp_10992(Config) when is_list(Config) -> + {cons,0,{float,0,42.0},{nil,0}} = + erl_parse:abstract([42.0], [{encoding,unicode}]), + {cons,0,{float,0,42.0},{nil,0}} = + erl_parse:abstract([42.0], [{encoding,utf8}]), + {cons,0,{integer,0,65},{cons,0,{float,0,42.0},{nil,0}}} = + erl_parse:abstract([$A,42.0], [{encoding,unicode}]), + {cons,0,{integer,0,65},{cons,0,{float,0,42.0},{nil,0}}} = + erl_parse:abstract([$A,42.0], [{encoding,utf8}]), + ok. + test_string(String, Expected) -> {ok, Expected, _End} = erl_scan:string(String), test(String). |