Back-fill tests for browse and remove duplicate invocation.

This commit adds tests in service of eventually resolving #53. Likewise, it
removes a mistaken duplicate invocation where on call to browse would result in
two calls to browse-url.

src/stedi/cdk/alpha.clj

@@ -37,13 +37,12 @@
                      (str (string/replace fqn "@aws-cdk/" "")
                           "-readme"))]
                (format "%s/docs/%s.html" docs-prefix url-formatted-fqn)))]
-     (browse/browse-url
-       (cond
-         (string? obj-class-or-fqn)
-         (fqn->url obj-class-or-fqn)
+     (cond
+       (string? obj-class-or-fqn)
+       (browse/browse-url (fqn->url obj-class-or-fqn))
 
-         (jsii/jsii-primitive? obj-class-or-fqn)
-         (browse (jsii/fqn obj-class-or-fqn)))))))
+       (jsii/jsii-primitive? obj-class-or-fqn)
+       (browse (jsii/fqn obj-class-or-fqn))))))
 
 (s/def ::bindings
   (s/+

test/stedi/cdk/alpha_test.clj

@@ -25,3 +25,46 @@
       (is (StringParameter/grantRead
             (StringParameter/fromStringParameterName s "param" "param-name")
             (Function/fromFunctionArn s "fn" "function-arn"))))))
+
+(deftest browse-test
+  (testing "opening documentation with no arguments"
+    (let [spy (atom [])]
+      (with-redefs [clojure.java.browse/browse-url
+                    (fn [url] (swap! spy conj url))]
+        (cdk/browse)
+        (is (= ["https://docs.aws.amazon.com/cdk/api/latest"] @spy)))))
+  (testing "opening module documentation with full path"
+    (let [spy (atom [])]
+      (with-redefs [clojure.java.browse/browse-url
+                    (fn [url] (swap! spy conj url))]
+        (cdk/browse "@aws-cdk/core")
+        (is (= ["https://docs.aws.amazon.com/cdk/api/latest/docs/core-readme.html"]
+               @spy)))))
+  (testing "opening module documentation for `core`"
+    (let [spy (atom [])]
+      (with-redefs [clojure.java.browse/browse-url
+                    (fn [url] (swap! spy conj url))]
+        (cdk/browse "core")
+        (is (= ["https://docs.aws.amazon.com/cdk/api/latest/docs/core-readme.html"]
+               @spy)))))
+  (testing "opening fully qualified documentation for a class"
+    (let [spy (atom [])]
+      (with-redefs [clojure.java.browse/browse-url
+                    (fn [url] (swap! spy conj url))]
+        (cdk/browse "@aws-cdk/core.Stack")
+        (is (= ["https://docs.aws.amazon.com/cdk/api/latest/docs/@aws-cdk_core.Stack.html"]
+               @spy)))))
+  (testing "opening documentation for a class"
+    (let [spy (atom [])]
+      (with-redefs [clojure.java.browse/browse-url
+                    (fn [url] (swap! spy conj url))]
+        (cdk/browse Stack)
+        (is (= ["https://docs.aws.amazon.com/cdk/api/latest/docs/@aws-cdk_core.Stack.html"]
+               @spy)))))
+  (testing "opening documentation for an instance"
+    (let [spy (atom [])]
+      (with-redefs [clojure.java.browse/browse-url
+                    (fn [url] (swap! spy conj url))]
+        (cdk/browse (Stack))
+        (is (= ["https://docs.aws.amazon.com/cdk/api/latest/docs/@aws-cdk_core.Stack.html"]
+               @spy))))))