1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
-module(bool_test).
-compile(no_auto_import).
-export([negate_test/0, compare_test/0, max_test/0, min_test/0, to_int_test/0]).
negate_test() ->
expect:false(bool:negate(true)),
expect:true(bool:negate(false)).
compare_test() ->
expect:equal(bool:compare(true, true), eq),
expect:equal(bool:compare(true, false), gt),
expect:equal(bool:compare(false, false), eq),
expect:equal(bool:compare(false, true), lt).
max_test() ->
expect:equal(bool:max(true, true), true),
expect:equal(bool:max(true, false), true),
expect:equal(bool:max(false, false), false),
expect:equal(bool:max(false, true), true).
min_test() ->
expect:equal(bool:min(true, true), true),
expect:equal(bool:min(true, false), false),
expect:equal(bool:min(false, false), false),
expect:equal(bool:min(false, true), false).
to_int_test() ->
expect:equal(bool:to_int(true), 1),
expect:equal(bool:to_int(false), 0).
|
