diff options
| author | Stuart Halloway <stu@thinkrelevance.com> | 2009-08-25 21:52:48 -0400 |
|---|---|---|
| committer | Stuart Halloway <stu@thinkrelevance.com> | 2009-08-25 21:52:48 -0400 |
| commit | c3cc2ea4356abc6c9e3faf43c862e3d6df3f28de (patch) | |
| tree | 4517577a06fefe89b2a343198b8e93cde3be48d3 /src/clojure/contrib/test_contrib/test_java_utils.clj | |
| parent | addc9c1460d56074962d85a99685573319a3c496 (diff) | |
| parent | f191c6be636ad682343279280fbe02fb2a956a03 (diff) | |
Merge branch 'expect'
Diffstat (limited to 'src/clojure/contrib/test_contrib/test_java_utils.clj')
| -rw-r--r-- | src/clojure/contrib/test_contrib/test_java_utils.clj | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/clojure/contrib/test_contrib/test_java_utils.clj b/src/clojure/contrib/test_contrib/test_java_utils.clj index 8a56b197..abf1b9a6 100644 --- a/src/clojure/contrib/test_contrib/test_java_utils.clj +++ b/src/clojure/contrib/test_contrib/test_java_utils.clj @@ -3,6 +3,7 @@ [clojure.contrib.duck-streams :only (spit)] clojure.contrib.java-utils) (:import [java.io File] + [java.net URL URI] [java.util Properties])) (deftest test-relative-path-string @@ -23,6 +24,13 @@ (is (= (File. "bar") (as-file (File. "bar"))))) ) +(deftest test-as-url + (are [result expr] (= result expr) + (URL. "http://foo") (as-url (URL. "http://foo")) + (URL. "http://foo") (as-url "http://foo") + (URL. "http://foo") (as-url (URI. "http://foo")) + (URL. "file:/foo") (as-url (File. "/foo")))) + (deftest test-file (testing "single argument" (is (= (File. "foo") (file "foo")))) |