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
31
32
33
34
35
36
37
38
39
40
41
42
|
-module(float_test).
-compile(no_auto_import).
-export([parse_test/0, to_string_test/0, ceiling_test/0, floor_test/0, round_test/0, truncate_test/0]).
parse_test() ->
expect:equal(float:parse(<<"1.23">>), {ok, 1.23}),
expect:equal(float:parse(<<"5.0">>), {ok, 5.0}),
expect:equal(float:parse(<<"0.123456789">>), {ok, 0.123456789}),
expect:is_error(float:parse(<<"">>)),
expect:is_error(float:parse(<<"what">>)),
expect:is_error(float:parse(<<"1">>)).
to_string_test() ->
expect:equal(float:to_string(123.0), <<"123.0">>),
expect:equal(float:to_string(-8.1), <<"-8.1">>).
ceiling_test() ->
expect:equal(float:ceiling(8.1), 9.0),
expect:equal(float:ceiling(-8.1), -8.0),
expect:equal(float:ceiling(-8.0), -8.0).
floor_test() ->
expect:equal(float:floor(8.1), 8.0),
expect:equal(float:floor(-8.1), -9.0),
expect:equal(float:floor(-8.0), -8.0).
round_test() ->
expect:equal(float:round(8.1), 8),
expect:equal(float:round(8.4), 8),
expect:equal(float:round(8.499), 8),
expect:equal(float:round(8.5), 9),
expect:equal(float:round(-8.1), -8),
expect:equal(float:round(-7.5), -8).
truncate_test() ->
expect:equal(float:truncate(8.1), 8),
expect:equal(float:truncate(8.4), 8),
expect:equal(float:truncate(8.499), 8),
expect:equal(float:truncate(8.5), 8),
expect:equal(float:truncate(-8.1), -8),
expect:equal(float:truncate(-7.5), -7).
|
