diff options
author | Michael Hwang <mhwang@research.att.com> | 2018-02-21 21:50:04 -0500 |
---|---|---|
committer | Michael Hwang <mhwang@research.att.com> | 2018-02-22 13:26:45 -0500 |
commit | d914d08a70f018468e4b909a780c753ebce243e9 (patch) | |
tree | 5eecc06e3470fb6bb393d6d4fdb53636e8eaa7e8 /test/sch/core_test.clj | |
parent | a84db47e05743a5b97fcb7891e70b5a8ea215e9d (diff) |
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>
Diffstat (limited to 'test/sch/core_test.clj')
-rw-r--r-- | test/sch/core_test.clj | 25 |
1 files changed, 23 insertions, 2 deletions
diff --git a/test/sch/core_test.clj b/test/sch/core_test.clj index c0682f4..e441343 100644 --- a/test/sch/core_test.clj +++ b/test/sch/core_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. @@ -20,9 +20,30 @@ (ns sch.core-test (:use (clojure test)) - (:require [sch.core :refer [create-distribution-client-config]]) + (:require [sch.core :refer [create-distribution-client-config deploy-artifacts-ex!]]) + (:import (org.openecomp.sdc.utils DistributionStatusEnum)) ) + +(deftest test-deploy-artifacts-ex + (letfn [(deploy-artifacts-echo [to-post posted to-delete deleted inventory-uri + service-metadata requests] + to-post posted to-delete deleted) + (send-dist-status-only-ok [artifact status] + (if (not= (. DistributionStatusEnum ALREADY_DEPLOYED) status) + (throw (Exception. "Distribution status should be ALREADY DEPLOYED")) + ))] + (let [service-metadata [{:resources [{:resourceInvariantUUID "123" + :artifacts [:artifactName "type-foo"] + }]}] + requests [{:asdcResourceId "123" :typeName "type-foo"}] + deploy-artifacts (partial deploy-artifacts-echo requests [] [] []) + nada (intern 'sch.handle 'deploy-artifacts! deploy-artifacts) + ] + (is (= nil (deploy-artifacts-ex! "http://inventory" service-metadata requests send-dist-status-only-ok))) + ))) + + (deftest test-create-distribution-client-config (let [config { :asdcDistributionClient { :environmentName "ONAP-AMDOCS" :asdcAddress "10.0.3.1:8443" |