Add JSON EUnit testing

2024-12-20 17:27:00 +01:00 · 2024-06-25 12:04:43 +02:00 · 2024-06-25 12:04:43 +02:00 · 992d84c002
commit 992d84c002
parent 9b675fe775
1 changed files with 72 additions and 0 deletions
--- a/test/json_test.erl
+++ b/test/json_test.erl
@ -0,0 +1,72 @@
+-module(json_test).
+
+-compile(export_all).
+
+-include_lib("eunit/include/eunit.hrl").
+
+%% @format-begin
+
+encode_binary_test() ->
+    Binary = <<"This is an error text.">>,
+    Encoded = <<"\"This is an error text.\"">>,
+    ?assertMatch(Encoded, misc:json_encode(Binary)).
+
+-ifdef(OTP_BELOW_27).
+-ifdef(OTP_BELOW_26).
+
+%% OTP 25 or lower
+encode_map_test() ->
+    Map = #{name => <<"room">>,
+            service => <<"conference">>,
+            jid => jid:encode({<<"user">>, <<"server">>, <<"">>}),
+            affiliation => member},
+    Encoded =
+        <<"{\"service\":\"conference\",\"name\":\"room\",\"jid\":\"user@server\",\"affiliation\":\"member\"}">>,
+    ?assertMatch(Encoded, misc:json_encode(Map)).
+
+-else.
+
+%% OTP 26
+encode_map_test() ->
+    Map = #{name => <<"room">>,
+            service => <<"conference">>,
+            jid => jid:encode({<<"user">>, <<"server">>, <<"">>}),
+            affiliation => member},
+    Encoded =
+        <<"{\"affiliation\":\"member\",\"jid\":\"user@server\",\"service\":\"conference\",\"name\":\"room\"}">>,
+    ?assertMatch(Encoded, misc:json_encode(Map)).
+
+-endif.
+
+-else.
+
+%% OTP 27 or higher or higher
+encode_map_test() ->
+    Map = #{name => <<"room">>,
+            service => <<"conference">>,
+            jid => jid:encode({<<"user">>, <<"server">>, <<"">>}),
+            affiliation => member},
+    Encoded27 =
+        <<"{\"name\":\"room\",\"service\":\"conference\",\"jid\":\"user@server\",\"affiliation\":\"member\"}">>,
+    ?assertMatch(Encoded27, misc:json_encode(Map)).
+
+-endif.
+
+decode_test() ->
+    Encoded =
+        <<"{\"affiliation\":\"member\",\"jid\":\"user@server\",\"service\":\"conference\",\"name\":\"room\"}">>,
+    TupleList =
+        #{<<"affiliation">> => <<"member">>,
+          <<"jid">> => <<"user@server">>,
+          <<"name">> => <<"room">>,
+          <<"service">> => <<"conference">>},
+    ?assertMatch(TupleList, misc:json_decode(Encoded)).
+
+decode_maps_test() ->
+    Encoded =
+        <<"{\"affiliation\":\"member\",\"jid\":\"user@server\",\"service\":\"conference\",\"name\":\"room\"}">>,
+    Map = #{<<"affiliation">> => misc:atom_to_binary(member),
+            <<"jid">> => jid:encode({<<"user">>, <<"server">>, <<"">>}),
+            <<"name">> => <<"room">>,
+            <<"service">> => <<"conference">>},
+    ?assertMatch(Map, misc:json_decode(Encoded)).