cdo/wipforth
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Run firefox in blank profile when e2e testing

Browse Source
This commit is contained in:
Camden Dixie O'Brien
2026-03-04 17:52:40 +00:00
parent 529aabd213
commit e13452db15
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
e2e/marionette.scm
View File

@@ -25,8 +25,11 @@
(when pid (close-firefox pid)))))) (when pid (close-firefox pid))))))
(define (start-firefox) (define (start-firefox)
(let* ((i/o (pipe)) (let* ((profile-dir (mkdtemp "/tmp/marionette-XXXXXX"))
(pid (spawn "firefox" '("firefox" "--marionette" "--headless") (i/o (pipe))
(pid (spawn "firefox"
`("firefox" "--marionette" "--headless"
"--profile" ,profile-dir "about:blank")
#:output (cdr i/o) #:output (cdr i/o)
#:error (cdr i/o)))) #:error (cdr i/o))))
(let loop ((line (read-line (car i/o)))) (let loop ((line (read-line (car i/o))))