aboutsummaryrefslogblamecommitdiffstats
path: root/lib/dialyzer/test/small_SUITE_data/src/failing_guard1.erl
blob: 9e39975105537b35927a11b2e8fe847567cd119e (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15














                                                                         
%%-----------------------------------------------------------------------
%% Author: Kostis Sagonas (Wed Aug 23 14:54:25 CEST 2006)
%%
%% Program to test failing arithmetic comparisons with a number of the
%% wrong type. The first case is handled properly; the second one is not.
%% Why?
%%-----------------------------------------------------------------------

-module(failing_guard1).
-export([n/1]).

n(N) when (N / 2) =:= 2 -> multiple_of_four;
n(N) when (N div 3) =:= 2.0 -> multiple_of_six;
n(N) when (N rem 3) =:= 2.0 -> multiple_of_six;
n(N) when is_number(N) -> other_number.