diff options
| author | Hans Bolinder <[email protected]> | 2011-07-05 10:10:02 +0200 |
|---|---|---|
| committer | Hans Bolinder <[email protected]> | 2011-07-06 16:19:59 +0200 |
| commit | 790d7218531957b1a2427432f4cbfc49f49b3566 (patch) | |
| tree | 8d7c6a85939d6558003b6ca1cfed0343828ac11f /lib/stdlib/test/erl_scan_SUITE.erl | |
| parent | ce834798d7f08d5869f11a1cb81e49ca7d5db3b8 (diff) | |
| download | otp-790d7218531957b1a2427432f4cbfc49f49b3566.tar.gz otp-790d7218531957b1a2427432f4cbfc49f49b3566.tar.bz2 otp-790d7218531957b1a2427432f4cbfc49f49b3566.zip | |
Fix a bug in erl_scan:set_attribute/3
Diffstat (limited to 'lib/stdlib/test/erl_scan_SUITE.erl')
| -rw-r--r-- | lib/stdlib/test/erl_scan_SUITE.erl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/stdlib/test/erl_scan_SUITE.erl b/lib/stdlib/test/erl_scan_SUITE.erl index 31a4f94294..4298b2c701 100644 --- a/lib/stdlib/test/erl_scan_SUITE.erl +++ b/lib/stdlib/test/erl_scan_SUITE.erl @@ -737,6 +737,10 @@ set_attribute() -> (catch {foo, erl_scan:set_attribute(line, [], F2)}), % type error ?line {'EXIT',{badarg,_}} = (catch {foo, erl_scan:set_attribute(column, [], F2)}), % type error + + %% OTP-9412 + ?line 8 = erl_scan:set_attribute(line, [{line,{nos,'X',8}}], + fun({nos,_V,VL}) -> VL end), ok. column_errors() -> |