From f4695768aeeaf72e8869f4cb976a1d29a5f3cb5a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9s=20Moya?= Date: Wed, 11 Mar 2026 10:59:06 +0100 Subject: [PATCH] wip --- .../src/app/common/files/comp_processors.cljc | 13 ++++++++++++ .../files/comp_processors_test.cljc | 20 +++++++++++++++++++ 2 files changed, 33 insertions(+) create mode 100644 common/src/app/common/files/comp_processors.cljc create mode 100644 common/test/common_tests/files/comp_processors_test.cljc diff --git a/common/src/app/common/files/comp_processors.cljc b/common/src/app/common/files/comp_processors.cljc new file mode 100644 index 0000000000..2fc5ec81d1 --- /dev/null +++ b/common/src/app/common/files/comp_processors.cljc @@ -0,0 +1,13 @@ +;; This Source Code Form is subject to the terms of the Mozilla Public +;; License, v. 2.0. If a copy of the MPL was not distributed with this +;; file, You can obtain one at http://mozilla.org/MPL/2.0/. +;; +;; Copyright (c) KALEIDOS INC + +(ns app.common.files.comp-processors + (:require + [app.common.types.file :as ctf])) + + (defn fix-missing-swap-slots + [file] + file) \ No newline at end of file diff --git a/common/test/common_tests/files/comp_processors_test.cljc b/common/test/common_tests/files/comp_processors_test.cljc new file mode 100644 index 0000000000..2952cb301d --- /dev/null +++ b/common/test/common_tests/files/comp_processors_test.cljc @@ -0,0 +1,20 @@ +;; This Source Code Form is subject to the terms of the Mozilla Public +;; License, v. 2.0. If a copy of the MPL was not distributed with this +;; file, You can obtain one at http://mozilla.org/MPL/2.0/. +;; +;; Copyright (c) KALEIDOS INC + +(ns common-tests.files.comp-processors-test + (:require + [app.common.files.comp-processors :as cfcp] +;; [app.common.test-helpers.components :as thc] +;; [app.common.test-helpers.compositions :as tho] + [app.common.test-helpers.files :as thf] +;; [app.common.test-helpers.ids-map :as thi] +;; [app.common.test-helpers.shapes :as ths] + [clojure.test :as t])) + +(t/deftest test-fix-missing-swap-slots + (t/testing "empty file should not need any action" + (let [file (thf/sample-file :file1)] + (t/is (= file (cfcp/fix-missing-swap-slots file))))))