blob: 9e39975105537b35927a11b2e8fe847567cd119e (
plain) (
blame)
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.
|
