diff options
author | Michael Hwang <mhwang@research.att.com> | 2016-10-17 17:32:25 -0400 |
---|---|---|
committer | Michael Hwang <mhwang@research.att.com> | 2017-08-23 13:43:09 -0400 |
commit | 16a9c5b8c6b91ea856450d99cdfa6a18c57b7f1b (patch) | |
tree | 14e7baadd42e8d8dcfa9e9b177b1bb6f05d8522a /test/sch/handle_test.clj | |
parent | 5c203e2c84b5ebcb0eb827038b370fb962595745 (diff) |
Make first commit
Change-Id: I7dd166e4052d48e2b333cfaadb8a0b64009b2cbc
Issue-Id: DCAEGEN2-44
Signed-off-by: Michael Hwang <mhwang@research.att.com>
Diffstat (limited to 'test/sch/handle_test.clj')
-rw-r--r-- | test/sch/handle_test.clj | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/test/sch/handle_test.clj b/test/sch/handle_test.clj new file mode 100644 index 0000000..9cbf9f7 --- /dev/null +++ b/test/sch/handle_test.clj @@ -0,0 +1,38 @@ +; ============LICENSE_START======================================================= +; org.onap.dcae +; ================================================================================ +; Copyright (c) 2017 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. +; You may obtain a copy of the License at +; +; http://www.apache.org/licenses/LICENSE-2.0 +; +; Unless required by applicable law or agreed to in writing, software +; distributed under the License is distributed on an "AS IS" BASIS, +; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +; See the License for the specific language governing permissions and +; limitations under the License. +; ============LICENSE_END========================================================= +; +; ECOMP is a trademark and service mark of AT&T Intellectual Property. + +(ns sch.handle-test + (:use (clojure test)) + (:require [cheshire.core :refer [parse-stream]] + [sch.handle :refer :all]) + ) + +(deftest deployed-funcs-test + (let [requests [{:asdcResourceId "123" :typeName "pizza"} + {:asdcResourceId "456" :typeName "hamburger"} + {:asdcResourceId "789" :typeName "hotdog"}] + attempted [{:asdcResourceId "456" :typeName "hamburger"} + {:asdcResourceId "789" :typeName "hotdog"}] + completed [{:asdcResourceId "789" :typeName "hotdog"}] + ] + (is (= (deployed-ok attempted completed) completed)) + (is (= (deployed-error attempted completed) [(first attempted)])) + (is (= (deployed-already requests attempted) [(first requests)])) + )) |