|
| 1 | +# A script to run the test suite in a headless Chromium |
| 2 | +# |
| 3 | +# It's pretty much just Browserify everything, put it in an HTML page and tell |
| 4 | +# puppeteer to load it. |
| 5 | +# |
| 6 | +# The source-map package deciding to move to a WASM implementation causes us |
| 7 | +# some headache here: we have to make sure its mappings.wasm file is in the |
| 8 | +# right place so the browser can pick it up. |
| 9 | + |
| 10 | +require! <[ puppeteer tmp fs browserify http ecstatic ]> |
| 11 | + |
| 12 | +e, directory <- tmp.dir prefix: \eslisp-browser-test_ ; throw e if e |
| 13 | +filepath = "#directory/index.html" |
| 14 | + |
| 15 | +browserify-spec = browserify \./test.ls { +debug } |
| 16 | + ..transform \anyify ls: \livescript?compile |
| 17 | +e, js <- browserify-spec.bundle! ; throw e if e |
| 18 | + |
| 19 | +console.log "Generating HTML into #filepath" |
| 20 | +e <- fs.write-file do |
| 21 | + filepath |
| 22 | + """ |
| 23 | + <html> |
| 24 | + <head> <meta charset="utf-8"/> </head> |
| 25 | + <script> #js </script> |
| 26 | + </html> |
| 27 | + """ |
| 28 | +wasm-filepath = "#directory/mappings.wasm" |
| 29 | +console.log "Copying source-map WASM into #wasm-filepath" |
| 30 | +e <- fs.copy-file \node_modules/source-map/lib/mappings.wasm wasm-filepath |
| 31 | +throw e if e |
| 32 | + |
| 33 | +http-server = http.create-server (ecstatic root: directory) .listen 9999 |
| 34 | + |
| 35 | +(->> |
| 36 | + got-error = false |
| 37 | + got-fail = false |
| 38 | + browser = await puppeteer.launch args: <[ --no-sandbox ]> |
| 39 | + console.log "Browser version #{await browser.version!}" |
| 40 | + console.log! |
| 41 | + page = await browser.new-page! |
| 42 | + ..on \console (msg) -> |
| 43 | + console.log msg.text! |
| 44 | + if msg.text!.starts-with 'not ok' |
| 45 | + got-fail := true |
| 46 | + ..on \error (msg) -> |
| 47 | + got-error := true |
| 48 | + console.error "error msg:" msg |
| 49 | + ..on \pageerror (msg) -> |
| 50 | + console.error "pageerror msg:" msg |
| 51 | + got-error := true |
| 52 | + await ..goto "http://localhost:9999/index.html" wait-until: \networkidle2 |
| 53 | + await browser.close! |
| 54 | + if got-fail |
| 55 | + process.exit 1 |
| 56 | + if got-error |
| 57 | + process.exit 2 |
| 58 | + <- http-server.close! |
| 59 | +)! |
0 commit comments