fix get-inner-html for phantomjs (#266)

clj-commons · Aug 5, 2020 · 6029830 · 6029830
1 parent 6e321fc
commit 6029830
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 2 deletions.
diff --git a/src/etaoin/api.clj b/src/etaoin/api.clj
@@ -1121,15 +1121,26 @@
 ;;
 ;; element inner HTML
 ;;
-
-(defn get-element-inner-html-el
+(defmulti get-element-inner-html-el
   "Returns element's inner text by its identifier."
+  dispatch-driver)
+
+(defmethod get-element-inner-html-el
+  :default
   [driver el]
   {:pre [(some? el)]}
   (:value (execute {:driver driver
                     :method :get
                     :path   [:session (:session @driver) :element el :property :innerHTML]})))
 
+(defmethod get-element-inner-html-el
+  :phantom
+  [driver el]
+  {:pre [(some? el)]}
+  (:value (execute {:driver driver
+                    :method :get
+                    :path   [:session (:session @driver) :element el :attribute :innerHTML]})))
+
 (defn get-element-inner-html
   "Returns element's inner HTML.
 

diff --git a/test/etaoin/api_test.clj b/test/etaoin/api_test.clj
@@ -202,6 +202,11 @@
           (= [nil nil nil nil])
           is))))
 
+(deftest test-get-inner-html
+  (let [inner-html "<div>Inner HTML</div>"
+        result     (get-element-inner-html *driver* :element-props)]
+    (is (= inner-html result))))
+
 (deftest test-title
   (doto *driver*
     (-> get-title (= "Webdriver Test Document") is)))