From eaa3242cc08075c4b23962c95bf11f469d51fbe9 Mon Sep 17 00:00:00 2001 From: Camden Dixie O'Brien Date: Wed, 18 Mar 2026 14:24:25 +0000 Subject: [PATCH] Update e2e tests --- tests.scm | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/tests.scm b/tests.scm index 064e048..3f4c9e1 100644 --- a/tests.scm +++ b/tests.scm @@ -21,11 +21,17 @@ (navigate client "http://localhost:8080") (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 (let* ((display (get-display client)) - (first-line (first (lines display)))) - (assert (string-match "Loading prelude \\.+ done" first-line) - (format #f "Prelude load line: ~s" first-line)))) + (line (second (lines display)))) + (assert (string-match "Loading prelude \\.+ done" line) + (format #f "Prelude load line: ~s" line)))) (define-test six-seven-times-dot-cr-yields-42 (input-line client "6 7 * . CR")