From 209e3e5f0fc763293e6918d96b828950cb12671c Mon Sep 17 00:00:00 2001
From: saidone <saidone@saidone.org>
Date: Tue, 2 Jul 2024 07:48:29 +0200
Subject: [PATCH] delete-rendition-test

---
 src/cral/api/core/renditions.clj |  2 +-
 test/cral/renditions_test.clj    | 23 +++++++++++++++++++++++
 2 files changed, 24 insertions(+), 1 deletion(-)

diff --git a/src/cral/api/core/renditions.clj b/src/cral/api/core/renditions.clj
index f5df9e4..e384317 100644
--- a/src/cral/api/core/renditions.clj
+++ b/src/cral/api/core/renditions.clj
@@ -95,7 +95,7 @@
     client/delete
     (format "%s/nodes/%s/renditions/%s" (config/get-url 'core) node-id rendition-id)
     ticket
-    nil
+    {:query-params nil}
     opts))
 
 (defn get-rendition-content
diff --git a/test/cral/renditions_test.clj b/test/cral/renditions_test.clj
index e0a97c7..1d8f7f9 100644
--- a/test/cral/renditions_test.clj
+++ b/test/cral/renditions_test.clj
@@ -83,6 +83,29 @@
     ;; clean up
     (is (= (:status (nodes/delete-node ticket created-node-id {:permanent true})) 204))))
 
+(deftest delete-rendition-test
+  (let [ticket (get-in (auth/create-ticket c/user c/password) [:body :entry])
+        ;; create a node
+        created-node-id (->> (model/map->CreateNodeBody {:name (str (.toString (UUID/randomUUID)) ".jpg") :node-type cm/type-content})
+                             (nodes/create-node ticket (tu/get-guest-home ticket))
+                             (#(get-in % [:body :entry :id])))
+        ;; update the node content
+        _ (nodes/update-node-content ticket created-node-id (io/as-file (io/resource content-file)))
+        ;; ask for rendition creation
+        _ (renditions/create-rendition ticket created-node-id [(model/map->CreateRenditionBody {:id "doclib"})])]
+    ;; wait until rendition is status is "CREATED"
+    (loop [get-rendition-info-response nil]
+      (if (= (get-in get-rendition-info-response [:body :entry :status]) "CREATED")
+        (is (= (:status get-rendition-info-response) 200))
+        (do
+          (Thread/sleep 1000)
+          (recur (renditions/get-rendition-info ticket created-node-id "doclib")))))
+    ;; delete rendition
+    (is (= (:status (renditions/delete-rendition ticket created-node-id "doclib")) 204))
+    (is (= (get-in (renditions/get-rendition-info ticket created-node-id "doclib") [:body :entry :status]) "NOT_CREATED"))
+    ;; clean up
+    (is (= (:status (nodes/delete-node ticket created-node-id {:permanent true})) 204))))
+
 (deftest get-rendition-content-test
   (let [ticket (get-in (auth/create-ticket c/user c/password) [:body :entry])
         ;; create a node