Apache
/
jclouds
mirror of https://github.com/apache/jclouds.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Issue 716: add tests for memfn-apply

This commit is contained in:
Allen Rohner 2011-10-12 12:30:50 -05:00
parent fe50ae36bc
commit 17b277c24e
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
core/src/test/clojure/org/jclouds/core_test.clj
View File

@ -55,6 +55,11 @@ list, Alan Dipert and MeikelBrandmeyer."
(deftest kw-fn-symbol-test (deftest kw-fn-symbol-test
(is (= 'aB (kw-fn-symbol :a-b)))) (is (= 'aB (kw-fn-symbol :a-b))))
(deftest memfn-apply-test
(is (= "Ab" ((memfn-apply concat s) "A" ["b"])))
(is (= "Ac" ((memfn-apply replace a b) "Ab" ["b" "c"]))))
(deftest kw-memfn-test (deftest kw-memfn-test
(is (= "a" ((kw-memfn :to-lower-case) "A"))) (is (= "a" ((kw-memfn :to-lower-case) "A")))
(is (= "Ab" ((kw-memfn :concat s) "A" "b"))) (is (= "Ab" ((kw-memfn :concat s) "A" "b")))