🎉 Add proper schema encoding/decoding mechanism

this allows almost all api operations to success usin application/json
encoding with the exception of the update-file, which we need to
approach a bit differently;

the reason update-file is different, is because the operations vector
is right now defined without the context of shape type, so we are just
unable to properly parse the value to correct type using the schema
decoding mechanism

backend/test/backend_tests/rpc_file_test.clj

@@ -25,6 +25,20 @@
 (t/use-fixtures :once th/state-init)
 (t/use-fixtures :each th/database-reset)
 
+(defn- update-file!
+  [& {:keys [profile-id file-id changes revn] :or {revn 0}}]
+  (let [params {::th/type :update-file
+                ::rpc/profile-id profile-id
+                :id file-id
+                :session-id (uuid/random)
+                :revn revn
+                :features cfeat/supported-features
+                :changes changes}
+        out    (th/command! params)]
+    ;; (th/print-result! out)
+    (t/is (nil? (:error out)))
+    (:result out)))
+
 (t/deftest files-crud
   (let [prof    (th/create-profile* 1 {:is-active true})
         team-id (:default-team-id prof)
@@ -569,18 +583,18 @@
               (t/is (nil? (:error out)))
               (:result out)))
 
-          (update-file! [& {:keys [profile-id file-id changes revn] :or {revn 0}}]
-            (let [params {::th/type :update-file
-                          ::rpc/profile-id profile-id
-                          :id file-id
-                          :session-id (uuid/random)
-                          :revn revn
-                          :features cfeat/supported-features
-                          :changes changes}
-                  out    (th/command! params)]
+          #_(update-file! [& {:keys [profile-id file-id changes revn] :or {revn 0}}]
+                          (let [params {::th/type :update-file
+                                        ::rpc/profile-id profile-id
+                                        :id file-id
+                                        :session-id (uuid/random)
+                                        :revn revn
+                                        :features cfeat/supported-features
+                                        :changes changes}
+                                out    (th/command! params)]
               ;; (th/print-result! out)
-              (t/is (nil? (:error out)))
-              (:result out)))]
+                            (t/is (nil? (:error out)))
+                            (:result out)))]
 
     (let [storage  (:app.storage/storage th/*system*)
           profile  (th/create-profile* 1)
@@ -604,7 +618,6 @@
                                                     :frame-id frame-id-2)]
 
       ;; Add a two frames
-
       (update-file!
        :file-id (:id file)
        :profile-id (:id profile)
@@ -1214,21 +1227,6 @@
       (let [rows (th/db-query :file-thumbnail {:file-id (:id file)})]
         (t/is (= 1 (count rows)))))))
 
-
-(defn- update-file!
-  [& {:keys [profile-id file-id changes revn] :or {revn 0}}]
-  (let [params {::th/type :update-file
-                ::rpc/profile-id profile-id
-                :id file-id
-                :session-id (uuid/random)
-                :revn revn
-                :features cfeat/supported-features
-                :changes changes}
-        out    (th/command! params)]
-    ;; (th/print-result! out)
-    (t/is (nil? (:error out)))
-    (:result out)))
-
 (t/deftest file-tiered-storage
   (let [profile (th/create-profile* 1)
         file    (th/create-file* 1 {:profile-id (:id profile)

backend/test/backend_tests/rpc_team_test.clj

@@ -260,6 +260,7 @@
         (th/reset-mock! mock)
         (let [data (assoc data :emails [(:email profile2)])
               out  (th/command! data)]
+          ;; (th/print-result! out)
           (t/is (th/success? out))
           (t/is (= 0 (:call-count (deref mock)))))
 

backend/test/backend_tests/rpc_webhooks_test.clj

@@ -166,7 +166,6 @@
           out9    (th/command! params)]
 
       (t/is (= 8 (:call-count @http-mock)))
-
       (t/is (nil? (:error out1)))
       (t/is (nil? (:error out2)))
       (t/is (nil? (:error out3)))