diff options
| -rw-r--r-- | src/test/clojure/clojure/contrib/test_io.clj | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/test/clojure/clojure/contrib/test_io.clj b/src/test/clojure/clojure/contrib/test_io.clj index 199cbfc5..30ccd4a5 100644 --- a/src/test/clojure/clojure/contrib/test_io.clj +++ b/src/test/clojure/clojure/contrib/test_io.clj @@ -31,3 +31,13 @@ (is (thrown? ArithmeticException (/ 1 0))) (is (thrown? java.io.IOException (delete-file not-file))) (is (delete-file not-file :silently)))) + +(deftest test-relative-path-string + (testing "strings" + (is (= "foo" (relative-path-string "foo")))) + (testing "absolute path strings are forbidden" + (is (thrown? IllegalArgumentException (relative-path-string (str File/separator "baz"))))) + (testing "relative File paths" + (is (= "bar" (relative-path-string (File. "bar"))))) + (testing "absolute File paths are forbidden" + (is (thrown? IllegalArgumentException (relative-path-string (File. (str File/separator "quux"))))))) |