diff options
author | Fredrik Gustafsson <[email protected]> | 2013-10-14 11:15:07 +0200 |
---|---|---|
committer | Fredrik Gustafsson <[email protected]> | 2013-10-14 11:15:07 +0200 |
commit | 4db36c5ac1ade665fdf3ddfc1c5782fdf40ef0dc (patch) | |
tree | e50f3b0f0d3b96a44bbaf93c90c6670d75438e2c /lib/dialyzer/test/small_SUITE_data/src/maybe_improper.erl | |
parent | 240c5e4785fee63457e87c443eff5da82976c785 (diff) | |
parent | e978ff2a2c634ef2a4af7372cf2ecce8d70743b9 (diff) | |
download | otp-4db36c5ac1ade665fdf3ddfc1c5782fdf40ef0dc.tar.gz otp-4db36c5ac1ade665fdf3ddfc1c5782fdf40ef0dc.tar.bz2 otp-4db36c5ac1ade665fdf3ddfc1c5782fdf40ef0dc.zip |
Merge branch 'kostis/dialyzer_R16B02_fixes/OTP-11374' into maint
* kostis/dialyzer_R16B02_fixes/OTP-11374:
Fix crash when using remote types in the tail of list types
Adopt a convention about unknown modules
No reason for calls to unknown modules
Use the modern version of is_subtype
Adopt a convention about unknown modules
Fix a comment
Add some more comments about what the test does
Diffstat (limited to 'lib/dialyzer/test/small_SUITE_data/src/maybe_improper.erl')
-rw-r--r-- | lib/dialyzer/test/small_SUITE_data/src/maybe_improper.erl | 17 |
1 files changed, 14 insertions, 3 deletions
diff --git a/lib/dialyzer/test/small_SUITE_data/src/maybe_improper.erl b/lib/dialyzer/test/small_SUITE_data/src/maybe_improper.erl index 1743d81493..6d2a35b7c8 100644 --- a/lib/dialyzer/test/small_SUITE_data/src/maybe_improper.erl +++ b/lib/dialyzer/test/small_SUITE_data/src/maybe_improper.erl @@ -1,7 +1,18 @@ +%%%======================================================================== +%%% Tests handling of maybe improper lists +%%%======================================================================== -module(maybe_improper). --export([s/1]). +-export([s/1, t/0]). -spec s(maybe_improper_list(X,Y)) -> {[X], maybe_improper_list(X,Y)}. -s(A) -> - lists:split(2,A). +s(L) -> + lists:split(2, L). + +%% Having a remote type in the 'tail' of the list crashed dialyzer. +%% The problem was fixed for R16B03. +-type t_mil() :: maybe_improper_list(integer(), orddict:orddict()). + +-spec t() -> t_mil(). +t() -> + [42 | []]. |