116 tests added

clj-commons · Feb 26, 2018 · be4d4de · be4d4de
1 parent 51cc935
commit be4d4de
Show file tree

Hide file tree

Showing 2 changed files with 25 additions and 1 deletion.
diff --git a/resources/html/test.html b/resources/html/test.html
@@ -195,6 +195,19 @@ <h3>Find text with quote</h3>
             </div>
         </div>
 
+        <div id="wc3-barks">
+            <p>
+                <span class="crypt-lord">
+                    From the depths I've come!
+                </span>
+            </p>
+            <p>
+                <span class="pit-lord">
+                    I've come from the darkness of the pit!
+                </span>
+            </p>
+        </div>
+
         <h3 id="document-end">Document end</h3>
 
     </body>

diff --git a/test/etaoin/api_test.clj b/test/etaoin/api_test.clj
@@ -540,6 +540,17 @@
             (is (= (-> files rest count)
                    2))))))))
 
-(deftest find-quotes-in-text
+(deftest test-find-quotes-in-text
   (doto *driver*
     (-> (has-text? "'quote") is)))
+
+(deftest test-has-text
+  (testing "gloval"
+    (is (has-text? *driver* "From the depths I've come!"))
+    (is (has-text? *driver* "I've come from the dark")))
+  (testing "relative"
+    (is (has-text? *driver* [:wc3-barks {:tag :p} {:tag :span}] "ths I've come!")))
+  (testing "short path"
+    (is (has-text? *driver* [:wc3-barks {:tag :span}] "ths I've")))
+  (testing "wrong path"
+    (is (not (has-text? *driver* [:wc3-barks {:tag :p} :pit-lord] "ths I've come!")))))