From 91dc336f67231bb4f6f06d217e316fc02cd1bfc5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Tue, 25 Aug 2026 20:44:58 +0200
Subject: Test: refactor Praser test with helper functions

---
 test/script/parser.et | 33 ++++++++++++++++++---------------
 1 file changed, 18 insertions(+), 15 deletions(-)

(limited to 'test/script/parser.et')

diff --git a/test/script/parser.et b/test/script/parser.et
index 908431e..a4e4e2f 100644
--- a/test/script/parser.et
+++ b/test/script/parser.et
@@ -3,20 +3,23 @@ module parser
 asset scripts:
     path: ../asset/parser
 
-test Parser:
-    spawn as p 
-    with p:
-        send "load non-existing-file.et"
-        expect /load-failed file-not-found .*/
-
-        send "load ${scripts.path}/indent.et"
-        expect /load-done/
+def expect_load_success using p of file:
+    guard (file /= "") # TODO: forces (file :: String)
+    send "load ${scripts.path}/$file.et" to p
+    expect /load-([a-z-]+).*/ from p capture done
+    guard (done == "done")
 
-        send "load ${scripts.path}/function.et"
-        expect /load-done/
+def expect_load_failure using p of file giving error:
+    guard (file /= "") # TODO: forces (file :: String)
+    send "load ${scripts.path}/$file.et" to p
+    expect /load-([a-z-]+) ([a-z-]+).*/ from p capture done, msg
+    guard (done == "failed")
+    guard (msg == error)
 
-        send "load ${scripts.path}/function-fail.et"
-        expect /load-failed parse-error/
-
-        send "load ${scripts.path}/tags.et"
-        expect /load-done/
+test Parser:
+    spawn as p
+    expect_load_failure using p of "non-existing-file" giving "file-not-found"
+    expect_load_success using p of "indent"
+    expect_load_success using p of "function"
+    expect_load_failure using p of "function-fail" giving "parse-error"
+    expect_load_success using p of "tags"
-- 
cgit v1.2.3