diff options
| author | Stuart Sierra <mail@stuartsierra.com> | 2009-08-20 11:20:26 -0400 |
|---|---|---|
| committer | Stuart Sierra <mail@stuartsierra.com> | 2009-08-20 11:20:26 -0400 |
| commit | ef69dc58760232c75b55e91d405116aa5ed03d51 (patch) | |
| tree | f43b7050486909382c052af835cf5def89d184ef /src/clojure/contrib/test_contrib | |
| parent | 54a19a97e34c04dd7f9410e7683b13c240241458 (diff) | |
str_utils2.clj: added partial, with tests
Alternate definition of partial for fns that take their
primary argument first.
Diffstat (limited to 'src/clojure/contrib/test_contrib')
| -rw-r--r-- | src/clojure/contrib/test_contrib/str_utils2.clj | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/clojure/contrib/test_contrib/str_utils2.clj b/src/clojure/contrib/test_contrib/str_utils2.clj index 6d1f94d2..ee6aa68e 100644 --- a/src/clojure/contrib/test_contrib/str_utils2.clj +++ b/src/clojure/contrib/test_contrib/str_utils2.clj @@ -112,3 +112,8 @@ (deftest t-get (is (= \o (s/get "foo" 1)))) + +(deftest t-partial + (is (= "bar" ((s/partial s/drop 3) "foobar"))) + (is (= "ooba" ((comp (s/partial s/take 4) + (s/partial s/drop 1)) "foobar")))) |