stdlib: Split out tests

1 files changed, 90 insertions, 0 deletions

diff --git a/test/iodata_test.gleam b/test/iodata_test.gleam
new file mode 100644
index 0000000..e57c8cc
--- /dev/null
+++ b/test/iodata_test.gleam
@@ -0,0 +1,90 @@
+import expect
+import iodata
+
+pub fn iodata_test() {
+  let data = iodata:new("ello")
+    |> iodata:append(_, ",")
+    |> iodata:append(_, " world!")
+    |> iodata:prepend(_, "H")
+
+  data
+  |> iodata:to_string
+  |> expect:equal(_, "Hello, world!")
+
+  data
+  |> iodata:byte_size
+  |> expect:equal(_, 13)
+
+  let data = iodata:new("ello")
+    |> iodata:append_iodata(_, iodata:new(","))
+    |> iodata:append_iodata(_, iodata:concat([iodata:new(" wo"), iodata:new("rld!")]))
+    |> iodata:prepend_iodata(_, iodata:new("H"))
+
+  data
+  |> iodata:to_string
+  |> expect:equal(_, "Hello, world!")
+
+  data
+  |> iodata:byte_size
+  |> expect:equal(_, 13)
+}
+
+pub fn lowercase_test() {
+  ["Gleam", "Gleam"]
+  |> iodata:from_strings
+  |> iodata:lowercase
+  |> iodata:to_string
+  |> expect:equal(_, "gleamgleam")
+}
+
+pub fn uppercase_test() {
+  ["Gleam", "Gleam"]
+  |> iodata:from_strings
+  |> iodata:uppercase
+  |> iodata:to_string
+  |> expect:equal(_, "GLEAMGLEAM")
+}
+
+pub fn split_test() {
+  "Gleam,Erlang,Elixir"
+  |> iodata:new
+  |> iodata:split(_, ",")
+  |> expect:equal(_, [iodata:new("Gleam"), iodata:new("Erlang"), iodata:new("Elixir")])
+
+  ["Gleam, Erl", "ang,Elixir"]
+  |> iodata:from_strings
+  |> iodata:split(_, ", ")
+  |> expect:equal(_, [iodata:new("Gleam"), iodata:from_strings(["Erl", "ang,Elixir"])])
+}
+
+pub fn is_equal_test() {
+  iodata:new("12")
+  |> iodata:is_equal(_, iodata:from_strings(["1", "2"]))
+  |> expect:true
+
+  iodata:new("12")
+  |> iodata:is_equal(_, iodata:new("12"))
+  |> expect:true
+
+  iodata:new("12")
+  |> iodata:is_equal(_, iodata:new("2"))
+  |> expect:false
+}
+
+pub fn is_empty_test() {
+  iodata:new("")
+  |> iodata:is_empty
+  |> expect:true
+
+  iodata:new("12")
+  |> iodata:is_empty
+  |> expect:false
+
+  iodata:from_strings([])
+  |> iodata:is_empty
+  |> expect:true
+
+  iodata:from_strings(["", ""])
+  |> iodata:is_empty
+  |> expect:true
+}