From e13452db154f2ff1ddb86fe0de9628279dd31be6 Mon Sep 17 00:00:00 2001
From: Camden Dixie O'Brien <cdo@wip.sh>
Date: Wed, 4 Mar 2026 17:52:40 +0000
Subject: [PATCH] Run firefox in blank profile when e2e testing

---
 e2e/marionette.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/e2e/marionette.scm b/e2e/marionette.scm
index 3df158c..fb3a4d4 100644
--- a/e2e/marionette.scm
+++ b/e2e/marionette.scm
@@ -25,8 +25,11 @@
 		(when pid (close-firefox pid))))))
 
 (define (start-firefox)
-  (let* ((i/o (pipe))
-		 (pid (spawn "firefox" '("firefox" "--marionette" "--headless")
+  (let* ((profile-dir (mkdtemp "/tmp/marionette-XXXXXX"))
+		 (i/o (pipe))
+		 (pid (spawn "firefox"
+					 `("firefox" "--marionette" "--headless"
+					   "--profile" ,profile-dir "about:blank")
 					 #:output (cdr i/o)
 					 #:error (cdr i/o))))
 	(let loop ((line (read-line (car i/o))))