From 6754d151b21915b57b41b8200744a5be5db39112 Mon Sep 17 00:00:00 2001
From: Peter Mikkelsen <petermikkelsen10@gmail.com>
Date: Sun, 31 May 2026 16:33:31 +0200
Subject: Commit some testsuite stuff

---
 testsuite/aplwc.bin/example.exp | 10 ++++++++--
 testsuite/aplwc.bin/version.exp | 10 ++++++++++
 2 files changed, 18 insertions(+), 2 deletions(-)
 create mode 100644 testsuite/aplwc.bin/version.exp

(limited to 'testsuite/aplwc.bin')

diff --git a/testsuite/aplwc.bin/example.exp b/testsuite/aplwc.bin/example.exp
index 15ba15c..296dc0e 100644
--- a/testsuite/aplwc.bin/example.exp
+++ b/testsuite/aplwc.bin/example.exp
@@ -1,2 +1,8 @@
-spawn "${aplwc_bin}"
-fail "not implemented"
+aplwc_start
+expect {
+    "      " { pass "6-space prompt" }
+}
+send "\004"
+expect {
+    eof { pass "EOT ends the session" }
+}
diff --git a/testsuite/aplwc.bin/version.exp b/testsuite/aplwc.bin/version.exp
new file mode 100644
index 0000000..c8a20aa
--- /dev/null
+++ b/testsuite/aplwc.bin/version.exp
@@ -0,0 +1,10 @@
+aplwc_start "--version"
+expect {
+    "aplwc" {
+	pass "version contains program name"
+    }
+    timeout {
+	unresolved "timeout"
+    }
+}
+
-- 
cgit v1.2.3