From e1f4d26f3ee2e765c87b02c96950c9e0cb1d8bde Mon Sep 17 00:00:00 2001 From: Louis Pilfold Date: Fri, 10 May 2019 14:11:45 +0100 Subject: int:compare --- gen/test/int_test.erl | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'gen/test') diff --git a/gen/test/int_test.erl b/gen/test/int_test.erl index a50b5e6..0d3163e 100644 --- a/gen/test/int_test.erl +++ b/gen/test/int_test.erl @@ -1,7 +1,7 @@ -module(int_test). -compile(no_auto_import). --export([to_string/0, parse/0, to_base_string/0]). +-export([to_string/0, parse/0, to_base_string/0, compare_test/0]). to_string() -> expect:equal(int:to_string(123), <<"123">>), @@ -19,3 +19,11 @@ parse() -> to_base_string() -> expect:equal(int:to_base_string(100, 16), <<"64">>), expect:equal(int:to_base_string(-100, 16), <<"-64">>). + +compare_test() -> + expect:equal(int:compare(0, 0), eq), + expect:equal(int:compare(1, 1), eq), + expect:equal(int:compare(0, 1), lt), + expect:equal(int:compare(-2, -1), lt), + expect:equal(int:compare(2, 1), gt), + expect:equal(int:compare(-1, -2), gt). -- cgit v1.2.3