From 10d4c4305a69bc6ac2c9976d1f1b3aacd55843c5 Mon Sep 17 00:00:00 2001
From: Andrew Mayorov <encube.ul@gmail.com>
Date: Fri, 17 Feb 2023 19:45:10 +0300
Subject: [PATCH] feat(maybe): add basic tests for the new module

---
 apps/emqx/src/emqx_maybe.erl | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)

diff --git a/apps/emqx/src/emqx_maybe.erl b/apps/emqx/src/emqx_maybe.erl
index 8c60d7ae7..8da7c7c90 100644
--- a/apps/emqx/src/emqx_maybe.erl
+++ b/apps/emqx/src/emqx_maybe.erl
@@ -34,9 +34,40 @@ from_list([]) ->
 from_list([Term]) ->
     Term.
 
+%% @doc Apply a function to a maybe argument.
 -spec apply(fun((maybe(A)) -> maybe(A)), maybe(A)) ->
     maybe(A).
 apply(_Fun, undefined) ->
     undefined;
 apply(Fun, Term) when is_function(Fun) ->
     erlang:apply(Fun, [Term]).
+
+%%
+
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+
+to_list_test_() ->
+    [
+        ?_assertEqual([], to_list(undefined)),
+        ?_assertEqual([42], to_list(42))
+    ].
+
+from_list_test_() ->
+    [
+        ?_assertEqual(undefined, from_list([])),
+        ?_assertEqual(3.1415, from_list([3.1415])),
+        ?_assertError(_, from_list([1, 2, 3]))
+    ].
+
+apply_test_() ->
+    [
+        ?_assertEqual(<<"42">>, ?MODULE:apply(fun erlang:integer_to_binary/1, 42)),
+        ?_assertEqual(undefined, ?MODULE:apply(fun erlang:integer_to_binary/1, undefined)),
+        ?_assertEqual(undefined, ?MODULE:apply(fun crash/1, undefined))
+    ].
+
+crash(_) ->
+    erlang:error(crashed).
+
+-endif.