aboutsummaryrefslogtreecommitdiffstats
path: root/lib/dialyzer/test/small_SUITE_data
diff options
context:
space:
mode:
authorStavros Aronis <[email protected]>2012-04-03 11:44:50 +0200
committerHenrik Nord <[email protected]>2012-04-24 12:02:26 +0200
commit20412ad6e285a71246e660094a5e8610dfc7b71e (patch)
tree92116e07d1d56649772b72908c8c3af0ec996325 /lib/dialyzer/test/small_SUITE_data
parentcfea5eea406ba3af96588ff458e55de9a149d9c5 (diff)
downloadotp-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/small_SUITE_data')
-rw-r--r--lib/dialyzer/test/small_SUITE_data/src/collapse_lists/a.erl9
-rw-r--r--lib/dialyzer/test/small_SUITE_data/src/collapse_lists/b.erl5
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).