From aba2570a6ead62c7fa62c29f70689e73f901ac9d Mon Sep 17 00:00:00 2001 From: Peter Saxton Date: Tue, 23 Jun 2020 11:14:22 +0100 Subject: add url versions --- test/gleam/base_test.gleam | 44 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 44 insertions(+) (limited to 'test') diff --git a/test/gleam/base_test.gleam b/test/gleam/base_test.gleam index 90fdb2a..3d2b7c6 100644 --- a/test/gleam/base_test.gleam +++ b/test/gleam/base_test.gleam @@ -50,3 +50,47 @@ pub fn decode64_test() { |> base.decode64() |> should.equal(Error(Nil)) } + +pub fn url_encode64_test() { + [255, 127, 254, 252] + |> list_to_binary() + |> base.url_encode64(True) + |> should.equal("_3_-_A==") + + [255, 127, 254, 252] + |> list_to_binary() + |> base.url_encode64(False) + |> should.equal("_3_-_A") + + [0, 0, 0] + |> list_to_binary() + |> base.url_encode64(True) + |> should.equal("AAAA") + + [] + |> list_to_binary() + |> base.url_encode64(True) + |> should.equal("") +} + +pub fn url_decode64_test() { + "_3_-_A==" + |> base.url_decode64() + |> should.equal(Ok(list_to_binary([255, 127, 254, 252]))) + + "_3_-_A" + |> base.url_decode64() + |> should.equal(Ok(list_to_binary([255, 127, 254, 252]))) + + "AAAA" + |> base.url_decode64() + |> should.equal(Ok(list_to_binary([0, 0, 0]))) + + "" + |> base.url_decode64() + |> should.equal(Ok(list_to_binary([]))) + + ")!" + |> base.url_decode64() + |> should.equal(Error(Nil)) +} -- cgit v1.2.3