Mercurial > lasercutter
diff src/clojure/test_clojure/java/javadoc.clj @ 10:ef7dbbd6452c
added clojure source goodness
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Sat, 21 Aug 2010 06:25:44 -0400 |
parents | |
children |
line wrap: on
line diff
1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000 1.2 +++ b/src/clojure/test_clojure/java/javadoc.clj Sat Aug 21 06:25:44 2010 -0400 1.3 @@ -0,0 +1,22 @@ 1.4 +; Copyright (c) Rich Hickey. All rights reserved. 1.5 +; The use and distribution terms for this software are covered by the 1.6 +; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php) 1.7 +; which can be found in the file epl-v10.html at the root of this distribution. 1.8 +; By using this software in any fashion, you are agreeing to be bound by 1.9 +; the terms of this license. 1.10 +; You must not remove this notice, or any other, from this software. 1.11 + 1.12 +(ns clojure.test-clojure.java.javadoc 1.13 + (:use clojure.test 1.14 + [clojure.java.javadoc :as j]) 1.15 + (:import (java.io File))) 1.16 + 1.17 +(deftest javadoc-url-test 1.18 + (testing "for a core api" 1.19 + (binding [*feeling-lucky* false] 1.20 + (are [x y] (= x (#'j/javadoc-url y)) 1.21 + nil "foo.Bar" 1.22 + (str *core-java-api* "java/lang/String.html") "java.lang.String"))) 1.23 + (testing "for a remote javadoc" 1.24 + (binding [*remote-javadocs* (ref (sorted-map "java." "http://example.com/"))] 1.25 + (is (= "http://example.com/java/lang/Number.html" (#'j/javadoc-url "java.lang.Number"))))))