From 6f01264c9e183ad9885a3311dca1339da89a1a4d Mon Sep 17 00:00:00 2001
From: lread <lee@dlread.com>
Date: Thu, 14 Mar 2024 19:20:50 -0400
Subject: [PATCH] ci debug: try to coax some logs from safaridriver

---
 src/etaoin/api.clj       |  1 +
 test/etaoin/api_test.clj | 19 +++++++++++++++++--
 2 files changed, 18 insertions(+), 2 deletions(-)

diff --git a/src/etaoin/api.clj b/src/etaoin/api.clj
index 7db41f7c..7b836f95 100644
--- a/src/etaoin/api.clj
+++ b/src/etaoin/api.clj
@@ -185,6 +185,7 @@
              :path-driver "safaridriver"
              :log-stdout :inherit
              :log-stderr :inherit
+             :args-driver ["--diagnose"]
              :webdriver-failed-launch-retries 4}
    :edge    {:port 17556
              :path-driver "msedgedriver"}})
diff --git a/test/etaoin/api_test.clj b/test/etaoin/api_test.clj
index 57ad8ce5..03326e67 100644
--- a/test/etaoin/api_test.clj
+++ b/test/etaoin/api_test.clj
@@ -51,16 +51,31 @@
 
 ;; tests failed in safari 13.1.1 https://bugs.webkit.org/show_bug.cgi?id=202589 use STP newest
 (defn fixture-browsers [f]
-  (let [url (-> "html/test.html" io/resource str)]
+  (let [url (-> "html/test.html" io/resource str)
+        safaridriver-logs (fs/file (fs/home) "Library/Logs/com.apple.WebDriver")]
     (doseq [type drivers
             :let [opts (get default-opts type {})]]
+      (if (fs/exists? safaridriver-logs)
+        (do (println "pre: deleting safaridriver logs")
+            (fs/delete-tree safaridriver-logs))
+        (println "pre: no safaridriver logs found:" (str safaridriver-logs)))
+
       (e/with-driver type opts driver
         (e/go driver url)
         (e/wait-visible driver {:id :document-end})
         (binding [*driver* driver
                   test-report/*context* (name type)]
           (testing (name type)
-            (f)))))))
+            (try
+              (f)
+              (finally
+                (if (fs/exists? safaridriver-logs)
+                  (do (println "post: safaridriver logs:")
+                      (doseq [f (fs/list-dir safaridriver-logs)]
+                        (println "-file->" (str f))
+                        (println "-dump->\n" (slurp f))))
+                  (println "post: no safaridriver logs found"))))
+            ))))))
 
 (use-fixtures
   :each