Enable namespaced modules

1 files changed, 73 insertions, 0 deletions

diff --git a/test/std/int_test.gleam b/test/std/int_test.gleam
new file mode 100644
index 0000000..63e9d50
--- /dev/null
+++ b/test/std/int_test.gleam
@@ -0,0 +1,73 @@
+import std/expect
+import std/int
+import std/order
+
+pub fn to_string() {
+  123
+  |> int:to_string
+  |> expect:equal(_, "123")
+
+  -123
+  |> int:to_string
+  |> expect:equal(_, "-123")
+
+  0123
+  |> int:to_string
+  |> expect:equal(_, "123")
+}
+
+pub fn parse() {
+  "123"
+  |> int:parse
+  |> expect:equal(_, Ok(123))
+
+  "-123"
+  |> int:parse
+  |> expect:equal(_, Ok(-123))
+
+  "0123"
+  |> int:parse
+  |> expect:equal(_, Ok(123))
+
+  ""
+  |> int:parse
+  |> expect:is_error
+
+  "what"
+  |> int:parse
+  |> expect:is_error
+
+  "1.23"
+  |> int:parse
+  |> expect:is_error
+}
+
+pub fn to_base_string() {
+  100
+  |> int:to_base_string(_, 16)
+  |> expect:equal(_, "64")
+
+  -100
+  |> int:to_base_string(_, 16)
+  |> expect:equal(_, "-64")
+}
+
+pub fn compare_test() {
+  int:compare(0, 0)
+  |> expect:equal(_, order:Eq)
+
+  int:compare(1, 1)
+  |> expect:equal(_, order:Eq)
+
+  int:compare(0, 1)
+  |> expect:equal(_, order:Lt)
+
+  int:compare(-2, -1)
+  |> expect:equal(_, order:Lt)
+
+  int:compare(2, 1)
+  |> expect:equal(_, order:Gt)
+
+  int:compare(-1, -2)
+  |> expect:equal(_, order:Gt)
+}