From d914d08a70f018468e4b909a780c753ebce243e9 Mon Sep 17 00:00:00 2001
From: Michael Hwang <mhwang@research.att.com>
Date: Wed, 21 Feb 2018 21:50:04 -0500
Subject: Increase unit test coverage

Also updated pom to use 0.1.1 of oparent

Change-Id: I3af9fd23583bf8de34e3412494d1bc4a99fe4630
Issue-ID: DCAEGEN2-260
Signed-off-by: Michael Hwang <mhwang@research.att.com>
---
 test/sch/handle_test.clj | 71 +++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 70 insertions(+), 1 deletion(-)

(limited to 'test/sch/handle_test.clj')

diff --git a/test/sch/handle_test.clj b/test/sch/handle_test.clj
index 9cbf9f7..3ff0618 100644
--- a/test/sch/handle_test.clj
+++ b/test/sch/handle_test.clj
@@ -1,7 +1,7 @@
 ; ============LICENSE_START=======================================================
 ; org.onap.dcae
 ; ================================================================================
-; Copyright (c) 2017 AT&T Intellectual Property. All rights reserved.
+; Copyright (c) 2017-2018 AT&T Intellectual Property. All rights reserved.
 ; ================================================================================
 ; Licensed under the Apache License, Version 2.0 (the "License");
 ; you may not use this file except in compliance with the License.
@@ -24,6 +24,75 @@
             [sch.handle :refer :all])
   )
 
+
+(deftest test-should-update
+  (is (= false (should-update? {:typeVersion 2} {:typeVersion 3})))
+  (is (= true (should-update? {:typeVersion 3} {:typeVersion 2})))
+  )
+
+
+(deftest test-should-insert
+  (is (= true (should-insert? {} nil)))
+  (is (= true (should-insert? {} {})))
+  (is (= false (should-insert? {} {:somekey "yo"})))
+  )
+
+
+(deftest test-find-service-types-to-post
+  (letfn [(fake-get-service-types [result inventory-uri query-params]
+            result)]
+    (let [find-service-types-to-post #'sch.handle/find-service-types-to-post!
+          service-type-requests [{:typeName "some-type" :asdcServiceId "abc"
+                                  :asdcResourceId "123" :typeVersion 3}]
+          fake-get-service-types-insert (partial fake-get-service-types {})
+          nada (intern 'sch.inventory-client 'get-service-types! fake-get-service-types-insert)]
+      (is (= service-type-requests (find-service-types-to-post "http://inventory"
+                                                               service-type-requests)))
+      )))
+
+
+(deftest test-post-service-types
+  (letfn [(fake-post-service-type [inventory-uri request]
+            (assoc request :typeId "123"))]
+    (let [service-type-requests [{:typeName "some-type" :asdcServiceId "abc"
+                                  :asdcResourceId "123" :typeVersion 3}]
+          post-service-types #'sch.handle/post-service-types!
+          nada (intern 'sch.inventory-client 'post-service-type! fake-post-service-type)]
+      (is (= {:typeId "123" :typeName "some-type" :asdcServiceId "abc"
+              :asdcResourceId "123" :typeVersion 3}
+             (first (post-service-types "http://inventory" service-type-requests))))
+      )))
+
+
+(deftest test-find-service-types-to-delete
+  (letfn [(fake-get-service-types [result inventory-uri query-params]
+            result)]
+    (let [find-service-types-to-delete #'sch.handle/find-service-types-to-delete!
+          service-type-requests [{:typeName "some-type" :asdcServiceId "abc"
+                                  :asdcResourceId "123" :typeVersion 3}]
+          fake-get-service-types-delete (partial fake-get-service-types
+                                                 [{ :typeName "some-type"
+                                                   :asdcServiceId "abc"
+                                                   :asdcResourceId "456"
+                                                   :typeVersion 3 }])
+          nada (intern 'sch.inventory-client 'get-service-types!
+                       fake-get-service-types-delete)]
+      (is (= 1 (count (find-service-types-to-delete "http://inventory" "abc"
+                                                    service-type-requests))))
+      )))
+
+
+(deftest test-delete-service-types
+  (letfn [(fake-delete-service-type [inventory-uri type-id]
+            type-id)]
+    (let [service-type-requests [{:typeId "def" :typeName "some-type"
+                                  :asdcServiceId "abc" :asdcResourceId "123" :typeVersion 3}]
+          delete-service-types #'sch.handle/delete-service-types!
+          nada (intern 'sch.inventory-client 'delete-service-type! fake-delete-service-type)]
+      (is (= "def" (first (delete-service-types "http://inventory" service-type-requests))))
+      )))
+
+
 (deftest deployed-funcs-test
   (let [requests [{:asdcResourceId "123" :typeName "pizza"}
                   {:asdcResourceId "456" :typeName "hamburger"}
-- 
cgit 1.2.3-korg