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/asdc_client_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/asdc_client_test.clj')
-rw-r--r-- | test/sch/asdc_client_test.clj | 21 |
1 files changed, 18 insertions, 3 deletions
diff --git a/test/sch/asdc_client_test.clj b/test/sch/asdc_client_test.clj index ab84478..974dd40 100644 --- a/test/sch/asdc_client_test.clj +++ b/test/sch/asdc_client_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,16 +20,17 @@ (ns sch.asdc-client-test (:use (clojure test)) - (:require [sch.asdc-client :refer [create-asdc-conn]]) + (:require [sch.asdc-client :as ac]) ) + (deftest test-create-asdc-conn (let [config-good { :asdcUri "https://asdc-please-work:8443" :user "foo-user" :password "foo-password" :consumerId "foo-id" :activateServerTLSAuth true } - actual (create-asdc-conn { :asdcDistributionClient config-good }) + actual (ac/create-asdc-conn { :asdcDistributionClient config-good }) [uri user password consumer-id insecure?] actual ] (is (= (str uri) (:asdcUri config-good))) @@ -38,3 +39,17 @@ (is (= consumer-id (:consumerId config-good))) (is (= insecure? (not (:activateServerTLSAuth config-good)))) )) + + +(deftest test-get-consumer-id + (let [consumer-id "SOME-CONSUMER-ID" + asdc-conn [nil nil nil consumer-id nil]] + (is (= consumer-id (ac/get-consumer-id asdc-conn))) + )) + + +(deftest test-construct-service-path + (let [service-uuid "abc123"] + (is (= "/sdc/v1/catalog/services/abc123/metadata" + (ac/construct-service-path service-uuid))) + )) |