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

Update e2e tests

Browse Source
This commit is contained in:
Camden Dixie O'Brien
2026-03-18 14:24:25 +00:00
parent f77adffbef
commit eaa3242cc0
1 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
tests.scm
View File

@@ -21,11 +21,17 @@
(navigate client "http://localhost:8080") (navigate client "http://localhost:8080")
(sleep 5) (sleep 5)
(define-test kernel-assembles-successfully
(let* ((display (get-display client))
(line (first (lines display))))
(assert (string-match "Assembling kernel \\.+ done" line)
(format #f "Kernel assemble line: ~s" line))))
(define-test prelude-loads-successfully (define-test prelude-loads-successfully
(let* ((display (get-display client)) (let* ((display (get-display client))
(first-line (first (lines display)))) (line (second (lines display))))
(assert (string-match "Loading prelude \\.+ done" first-line) (assert (string-match "Loading prelude \\.+ done" line)
(format #f "Prelude load line: ~s" first-line)))) (format #f "Prelude load line: ~s" line))))
(define-test six-seven-times-dot-cr-yields-42 (define-test six-seven-times-dot-cr-yields-42
(input-line client "6 7 * . CR") (input-line client "6 7 * . CR")