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))))