diff options
| author | David Liebke and Stuart Halloway <pair@clojure.com> | 2010-05-28 17:07:16 -0400 |
|---|---|---|
| committer | Stuart Halloway <stu@thinkrelevance.com> | 2010-06-03 21:20:59 -0400 |
| commit | b7f211356c27ba099f3dbe116539dbd9efa421df (patch) | |
| tree | 35ad1f87389edba92531a0fb74f03d78dcb58f76 /test | |
| parent | 07fc5303c932d9d509d81d44e1a25bd244ceb7dd (diff) | |
string perf tweaks, tests #359
Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>
Diffstat (limited to 'test')
| -rw-r--r-- | test/clojure/test_clojure.clj | 5 | ||||
| -rw-r--r-- | test/clojure/test_clojure/string.clj | 10 |
2 files changed, 10 insertions, 5 deletions
diff --git a/test/clojure/test_clojure.clj b/test/clojure/test_clojure.clj index 9bde9009..f2b71a3e 100644 --- a/test/clojure/test_clojure.clj +++ b/test/clojure/test_clojure.clj @@ -58,6 +58,11 @@ :rt :repl :java.io + :string + :java.javadoc + :java.shell + :transients + :def ]) (def test-namespaces diff --git a/test/clojure/test_clojure/string.clj b/test/clojure/test_clojure/string.clj index af755f55..8ee7cdee 100644 --- a/test/clojure/test_clojure/string.clj +++ b/test/clojure/test_clojure/string.clj @@ -27,11 +27,11 @@ "1" \, [1] "1 and-a 2 and-a 3" " and-a " [1 2 3])) -(deftest t-trim-nl - (is (= "foo" (s/trim-nl "foo\n"))) - (is (= "foo" (s/trim-nl "foo\r\n"))) - (is (= "foo" (s/trim-nl "foo"))) - (is (= "" (s/trim-nl "")))) +(deftest t-trim-newline + (is (= "foo" (s/trim-newline "foo\n"))) + (is (= "foo" (s/trim-newline "foo\r\n"))) + (is (= "foo" (s/trim-newline "foo"))) + (is (= "" (s/trim-newline "")))) (deftest t-capitalize (is (= "Foobar" (s/capitalize "foobar"))) |