From 500567d6e12d1827f31cd52b961ed7a7e9fb9fa7 Mon Sep 17 00:00:00 2001 From: Stavros Aronis Date: Mon, 21 Mar 2011 18:36:50 +0200 Subject: Add small/not_bogus_warning --- .../small_SUITE_data/results/not_bogus_warning | 3 +++ .../small_SUITE_data/src/not_bogus_warning.erl | 25 ++++++++++++++++++++++ 2 files changed, 28 insertions(+) create mode 100644 lib/dialyzer/test/small_SUITE_data/results/not_bogus_warning create mode 100644 lib/dialyzer/test/small_SUITE_data/src/not_bogus_warning.erl diff --git a/lib/dialyzer/test/small_SUITE_data/results/not_bogus_warning b/lib/dialyzer/test/small_SUITE_data/results/not_bogus_warning new file mode 100644 index 0000000000..e3a7f6b444 --- /dev/null +++ b/lib/dialyzer/test/small_SUITE_data/results/not_bogus_warning @@ -0,0 +1,3 @@ + +not_bogus_warning.erl:11: Guard test not(is_atom(A::'bar' | 'foo')) can never succeed +not_bogus_warning.erl:24: Guard test not(is_integer(X::42)) can never succeed diff --git a/lib/dialyzer/test/small_SUITE_data/src/not_bogus_warning.erl b/lib/dialyzer/test/small_SUITE_data/src/not_bogus_warning.erl new file mode 100644 index 0000000000..53f7e934e4 --- /dev/null +++ b/lib/dialyzer/test/small_SUITE_data/src/not_bogus_warning.erl @@ -0,0 +1,25 @@ +%%----------------------------------------------------------------------------- +%% Test which produces an erroneous warning: +%% Guard test is_atom(A::'bar' | 'foo') can never succeed +%% due to the handling of not which of course succeeds when its argument fails +%%----------------------------------------------------------------------------- +-module(not_bogus_warning). + +-export([t1/0, t2/0, t3/0, t4/0]). + +t1() -> + [A || A <- [foo, bar], not is_atom(A)]. + +t2() -> + [A || A <- [foo, bar], not is_integer(A)]. + +t3() -> + should_we_warn_here(42). + +should_we_warn_here(X) when is_integer(X) -> int. + +t4() -> + should_we_warn_or_not(42). + +should_we_warn_or_not(X) when not is_integer(X) -> not_int; +should_we_warn_or_not(X) -> int. -- cgit v1.2.3