diff options
| author | Stavros Aronis <[email protected]> | 2012-04-03 11:44:50 +0200 |
|---|---|---|
| committer | Henrik Nord <[email protected]> | 2012-04-24 12:02:26 +0200 |
| commit | 20412ad6e285a71246e660094a5e8610dfc7b71e (patch) | |
| tree | 92116e07d1d56649772b72908c8c3af0ec996325 /lib/dialyzer/test | |
| parent | cfea5eea406ba3af96588ff458e55de9a149d9c5 (diff) | |
| download | otp-20412ad6e285a71246e660094a5e8610dfc7b71e.tar.gz otp-20412ad6e285a71246e660094a5e8610dfc7b71e.tar.bz2 otp-20412ad6e285a71246e660094a5e8610dfc7b71e.zip | |
Fix crash related to contract checking
When "collapsing" heads of list elements from a list's tail into the list's
head the new head can be different.
Diffstat (limited to 'lib/dialyzer/test')
| -rw-r--r-- | lib/dialyzer/test/small_SUITE_data/src/collapse_lists/a.erl | 9 | ||||
| -rw-r--r-- | lib/dialyzer/test/small_SUITE_data/src/collapse_lists/b.erl | 5 |
2 files changed, 14 insertions, 0 deletions
diff --git a/lib/dialyzer/test/small_SUITE_data/src/collapse_lists/a.erl b/lib/dialyzer/test/small_SUITE_data/src/collapse_lists/a.erl new file mode 100644 index 0000000000..7efe870b0d --- /dev/null +++ b/lib/dialyzer/test/small_SUITE_data/src/collapse_lists/a.erl @@ -0,0 +1,9 @@ +-module(a). +-export([g/1]). + +-export_type([a/0, t/0]). +-type a() :: integer(). +-type t() :: a() | maybe_improper_list(t(), t()). + +-spec g(t()) -> t(). +g(X) -> X. diff --git a/lib/dialyzer/test/small_SUITE_data/src/collapse_lists/b.erl b/lib/dialyzer/test/small_SUITE_data/src/collapse_lists/b.erl new file mode 100644 index 0000000000..b08bc5e66c --- /dev/null +++ b/lib/dialyzer/test/small_SUITE_data/src/collapse_lists/b.erl @@ -0,0 +1,5 @@ +-module(b). +-export([f/1]). + +-spec f(a:t()) -> a:t(). +f(X) -> a:g(X). |