Move webdriver component to test utils

Author: abogoyavlensky

README.md

@@ -43,13 +43,12 @@ _TODO: add features!_
 
 The template generates a Clojure project with the following structure:
 
-
 ```
 ├── .clj-kondo/            # Clojure linting configuration
 ├── .github/               # GitHub Actions workflows and configurations
-├── .kamal/                # Kamal secrets template (_only used if you use Kamal_)
-├── config/                # Kamal deployment configuration (_only used if you use Kamal_)
-├── db/                    # Database files directory (_only used if you use SQLite_)
+├── .kamal/                # Kamal secrets template (only used if you use Kamal)
+├── config/                # Kamal deployment configuration (only used if you use Kamal)
+├── db/                    # Database empty directory (only used if you use SQLite)
 ├── dev/                   # Development configuration directory
 │   └── user.clj           # User-specific development configuration
 ├── resources/             # Static resources and configuration files
@@ -58,7 +57,7 @@ The template generates a Clojure project with the following structure:
 │   ├── config.edn         # Main configuration file for the application
 │   ├── config.dev.edn     # Development-specific configuration
 │   ├── config.e2e.edn     # Test-specific configuration for end-to-end testing
-│   └── logback.xml/       # Logging configuration file
+│   └── logback.xml        # Logging configuration file
 ├── src/                   # Source code directory
 │   └── {{name}}           # Main namespace directory
 │       ├── core.clj       # Application entry point
@@ -70,8 +69,7 @@ The template generates a Clojure project with the following structure:
 ├── test/                  # Test files directory
 │   └── {{name}}           # Test namespace directory
 │       ├── home_test.clj  # Example test for home page
-│       ├── test_utils.clj # Test utilities
-│       └── webdriver.clj  # Webdriver system component to be used in `config.e2e.edn`
+│       └── test_utils.clj # Test utilities
 ├── .cljfmt.edn            # Formatting configuration
 ├── .gitignore             # Git ignore rules
 ├── .mise.toml             # mise-en-place configuration with system dependencies

resources/io/github/abogoyavlensky/clojure_stack_lite/root/resources/config.e2e.edn

@@ -1,2 +1,2 @@
 #merge [#include "config.edn"
-        {:{{main/ns}}.webdriver/webdriver {:server #ig/ref :{{main/ns}}.server/server}}]
+        {:{{main/ns}}.test-utils/webdriver {:server #ig/ref :{{main/ns}}.server/server}}]

resources/io/github/abogoyavlensky/clojure_stack_lite/test/home_test.clj

@@ -4,8 +4,7 @@
             [integrant-extras.tests :as ig-extras]
             [reitit-extras.tests :as reitit-extras]
             [{{main/ns}}.server :as-alias server]
-            [{{main/ns}}.test-utils :as test-utils]
-            [{{main/ns}}.webdriver :as-alias webdriver]))
+            [{{main/ns}}.test-utils :as test-utils]))
 
 (use-fixtures :once
               (ig-extras/with-system "config.e2e.edn"))
@@ -15,7 +14,7 @@
 
 (deftest test-home-page-loads-correctly
   (testing "Home page loads and displays correctly"
-    (let [driver (get-in ig-extras/*test-system* [::webdriver/webdriver :driver])
+    (let [driver (get-in ig-extras/*test-system* [::test-utils/webdriver :driver])
           server (::server/server ig-extras/*test-system*)
           url (reitit-extras/get-server-url server :container)]
 

resources/io/github/abogoyavlensky/clojure_stack_lite/test/test_utils.clj

@@ -1,6 +1,11 @@
 (ns {{main/ns}}.test-utils
-  (:require [integrant-extras.tests :as ig-extras]
-            [{{main/ns}}.db :as db]))
+  (:require [clojure.tools.logging :as log]
+            [etaoin.api :as etaoin]
+            [integrant-extras.tests :as ig-extras]
+            [integrant.core :as ig]
+            [{{main/ns}}.db :as db])
+  (:import [org.testcontainers Testcontainers]
+           [org.testcontainers.containers GenericContainer]))
 
 (defn- all-tables
   [db]
@@ -18,3 +23,29 @@
             :when (not= :schema_version table)]
       (db/exec! db {:delete-from table}))
     (f)))
+
+(def ^:private WEBDRIVER-PORT 4444)
+(def ^:private WEBDRIVER-IMAGE "selenium/standalone-chromium:131.0")
+
+(defmethod ig/init-key ::webdriver
+  [_ {:keys [server]}]
+  (log/info (str "[DB] Starting webdriver..."))
+  (let [server-port (.getLocalPort (first (.getConnectors server)))
+        ; Expose port from local machine to container
+        _ (Testcontainers/exposeHostPorts (int-array [server-port]))
+        ; Start the webdriver container
+        container (doto (GenericContainer. WEBDRIVER-IMAGE)
+                    (.withExposedPorts (into-array Integer [(int WEBDRIVER-PORT)]))
+                    (.withReuse true)
+                    (.start))
+        driver (etaoin/chrome-headless {:port (.getMappedPort container WEBDRIVER-PORT)
+                                        :host (.getHost container)
+                                        :args ["--no-sandbox"]})]
+    {:container container
+     :driver driver}))
+
+(defmethod ig/halt-key! ::webdriver
+  [_ {:keys [driver]}]
+  (log/info (str "[DB] Closing webdriver..."))
+  ; Do not stop the container to be able to reuse it
+  (etaoin/quit driver))