Fix: recognized :driver-log-level for Edge (#567)

Also add in sanity tests for WebDrivers that recognize `:driver-log-level`.

Closes #566

CHANGELOG.adoc

@@ -9,6 +9,7 @@ A release with an intentional breaking changes is marked with:
 
 * https://github.com/clj-commons/etaoin/pull/552[#552]: Add support for wide characters to input fill functions
 (https://github.com/tupini07[@tupini07])
+* https://github.com/clj-commons/etaoin/issues/566[#566]: Recognize `:driver-log-level` for Edge
 * bump all deps to current versions
 * docs
 ** https://github.com/clj-commons/etaoin/issues/534[#534]: better describe `etaoin.api/select` and its alternatives

src/etaoin/impl/driver.clj

@@ -473,8 +473,8 @@
   (log/infof "The log level setting is not implemented for this driver.")
   driver)
 
-(defmethod set-driver-log-level
-  :chrome
+(defmethods set-driver-log-level
+  [:chrome :edge]
   [driver log-level]
   (set-args driver [(format "--log-level=%s" log-level)]))
 

test/etaoin/api_with_driver_test.clj

@@ -9,7 +9,8 @@
             [etaoin.api :as e]
             [etaoin.api2 :as e2]
             [etaoin.api-test :as api-test]
-            [etaoin.test-report]))
+            [etaoin.test-report]
+            [etaoin.impl.util :as util]))
 
 (defn testing-driver? [type]
   (some #{type} api-test/drivers))
@@ -241,3 +242,30 @@
                (e2/with-safari [driver]
                  (e/go driver test-page)
                  (e/get-title driver))))))))
+
+(deftest driver-log-test
+  (let [test-page (api-test/test-server-url "test.html")]
+    (when (testing-driver? :chrome)
+      (testing "chrome"
+        (println "testing chrome")
+        (util/with-tmp-file "chromedriver" ".log" path
+          ;; chromedriver logs to stderr
+          (e/with-chrome {:driver-log-level "DEBUG" :log-stderr path} driver
+            (e/go driver test-page)
+            (is (re-find #"\[DEBUG\]:" (slurp path)))))))
+    (when (testing-driver? :edge)
+      (testing "edge"
+        (println "testing edge")
+        (util/with-tmp-file "edgedriver" ".log" path
+          ;; edgedriver logs to stderr
+          (e/with-edge {:driver-log-level "DEBUG" :log-stderr path} driver
+            (e/go driver test-page)
+            (is (re-find #"\[DEBUG\]:" (slurp path)))))))
+   (when (testing-driver? :firefox)
+      (testing "firefox"
+        (println "testing firefox")
+        (util/with-tmp-file "firefoxdriver" ".log" path
+          ;; geckodriver logs to stdout
+          (e/with-firefox {:driver-log-level "debug" :log-stdout path} driver
+            (e/go driver test-page)
+            (is (re-find #"\tDEBUG\t" (slurp path)))))))))