Issue 716: add tests for memfn-apply

2011-10-12 12:30:50 -05:00 · 2011-10-12 12:30:50 -05:00 · 17b277c24e
parent fe50ae36bc
commit 17b277c24e
1 changed files with 5 additions and 0 deletions
--- a/core/src/test/clojure/org/jclouds/core_test.clj
+++ b/core/src/test/clojure/org/jclouds/core_test.clj
@ -55,6 +55,11 @@ list, Alan Dipert and MeikelBrandmeyer."
 (deftest kw-fn-symbol-test
  (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
  (is (= "a" ((kw-memfn :to-lower-case) "A")))
  (is (= "Ab" ((kw-memfn :concat s) "A" "b")))