From 077aaf3468c640b84ff53fc92171292ddae55bf4 Mon Sep 17 00:00:00 2001
From: Louis Pilfold <louis@lpil.uk>
Date: Mon, 22 Apr 2019 22:33:15 +0000
Subject: Int and float modules

---
 gen/test/int_test.erl | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 gen/test/int_test.erl

(limited to 'gen/test/int_test.erl')

diff --git a/gen/test/int_test.erl b/gen/test/int_test.erl
new file mode 100644
index 0000000..a50b5e6
--- /dev/null
+++ b/gen/test/int_test.erl
@@ -0,0 +1,21 @@
+-module(int_test).
+-compile(no_auto_import).
+
+-export([to_string/0, parse/0, to_base_string/0]).
+
+to_string() ->
+    expect:equal(int:to_string(123), <<"123">>),
+    expect:equal(int:to_string(-123), <<"-123">>),
+    expect:equal(int:to_string(123), <<"123">>).
+
+parse() ->
+    expect:equal(int:parse(<<"123">>), {ok, 123}),
+    expect:equal(int:parse(<<"-123">>), {ok, -123}),
+    expect:equal(int:parse(<<"0123">>), {ok, 123}),
+    expect:is_error(int:parse(<<"">>)),
+    expect:is_error(int:parse(<<"what">>)),
+    expect:is_error(int:parse(<<"1.23">>)).
+
+to_base_string() ->
+    expect:equal(int:to_base_string(100, 16), <<"64">>),
+    expect:equal(int:to_base_string(-100, 16), <<"-64">>).
-- 
cgit v1.2.3