From 70689f457a8db5580db4ca12ca31147880a74d37 Mon Sep 17 00:00:00 2001
From: Dave Roberts <dave@droberts.com>
Date: Tue, 20 Aug 2024 13:34:49 -0500
Subject: [PATCH] Add test for fill-active (#638)

---
 test/etaoin/api_test.clj | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/test/etaoin/api_test.clj b/test/etaoin/api_test.clj
index 568e86c..7d54f4d 100644
--- a/test/etaoin/api_test.clj
+++ b/test/etaoin/api_test.clj
@@ -187,6 +187,18 @@
       (-> e/get-url
           (str/ends-with? "?login=1test2+A&password=&message=")
           is)))
+    (testing "fill active"
+    (doto *driver*
+      (e/click :simple-input)
+      (e/fill-active "MyLogin")
+      (e/click :simple-password)
+      (e/fill-active "MyPassword")
+      (e/click :simple-textarea)
+      (e/fill-active "Some text")
+      (e/click :simple-submit)
+      (e/when-safari (e/wait 3)))
+    (is (str/ends-with? (e/get-url *driver*)
+                        "?login=MyLogin&password=MyPassword&message=Some+text")))
   (testing "fill active human"
     (doto *driver*
       (e/click :simple-input)