Add a function to invert the table in a decoded json.

This commit is contained in:
2023-10-23 15:50:05 +03:00
parent 5a4b88bd08
commit 553f4788e4
2 changed files with 18 additions and 0 deletions
@@ -39,3 +39,11 @@
"1" {"key" 1 "table" {0 \a 1 \b 2 \c}}
"2" {"key" 2 "table" {\a 0 \b 1 \c 2}}))))
(deftest invert-table-in-map-test
(testing "The function invert the table in a decoded json."
(are [decoded-json expected-data]
(= expected-data
(invert-table-in-map decoded-json))
{"key" 1 "table" {0 \a 1 \b 2 \c}} {"key" 1 "table" {\a 0 \b 1 \c 2}}
{"key" 2 "table" {\a 0 \b 1 \c 2}} {"key" 2 "table" {0 \a 1 \b 2 \c}})))