diff options
| author | Hans Bolinder <[email protected]> | 2015-08-21 08:27:43 +0200 |
|---|---|---|
| committer | Hans Bolinder <[email protected]> | 2015-08-21 08:27:43 +0200 |
| commit | 378f70052f13ae607eebd5aebd7e978dc48a4c53 (patch) | |
| tree | 2adcefdc15890c404b85fa497682ec378cc2edd4 /lib/stdlib/test | |
| parent | 25be5551705cf64f2ecc7be5f6c64c9c908e2938 (diff) | |
| parent | 6633afcb23e36c77cab56f18a4d327b368513e48 (diff) | |
| download | otp-378f70052f13ae607eebd5aebd7e978dc48a4c53.tar.gz otp-378f70052f13ae607eebd5aebd7e978dc48a4c53.tar.bz2 otp-378f70052f13ae607eebd5aebd7e978dc48a4c53.zip | |
Merge branch 'maint'
* maint:
stdlib: fix a qlc bug introduced in 18.0
Diffstat (limited to 'lib/stdlib/test')
| -rw-r--r-- | lib/stdlib/test/qlc_SUITE.erl | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/lib/stdlib/test/qlc_SUITE.erl b/lib/stdlib/test/qlc_SUITE.erl index 72216bfa0d..52fdb69b73 100644 --- a/lib/stdlib/test/qlc_SUITE.erl +++ b/lib/stdlib/test/qlc_SUITE.erl @@ -74,6 +74,7 @@ otp_5644/1, otp_5195/1, otp_6038_bug/1, otp_6359/1, otp_6562/1, otp_6590/1, otp_6673/1, otp_6964/1, otp_7114/1, otp_7238/1, otp_7232/1, otp_7552/1, otp_6674/1, otp_7714/1, otp_11758/1, + otp_12946/1, manpage/1, @@ -143,7 +144,7 @@ groups() -> {tickets, [], [otp_5644, otp_5195, otp_6038_bug, otp_6359, otp_6562, otp_6590, otp_6673, otp_6964, otp_7114, otp_7232, - otp_7238, otp_7552, otp_6674, otp_7714, otp_11758]}, + otp_7238, otp_7552, otp_6674, otp_7714, otp_11758, otp_12946]}, {compat, [], [backward, forward]}]. init_per_suite(Config) -> @@ -7154,6 +7155,18 @@ otp_6674(Config) when is_list(Config) -> ?line run(Config, Ts). +otp_12946(doc) -> + ["Syntax error."]; +otp_12946(suite) -> []; +otp_12946(Config) when is_list(Config) -> + Text = + <<"-export([init/0]). + init() -> + ok. + y">>, + {errors,[{4,erl_parse,_}],[]} = compile_file(Config, Text, []), + ok. + manpage(doc) -> "Examples from qlc(3)."; manpage(suite) -> []; |