Commit some testsuite stuffHEADmaster

2 files changed, 18 insertions, 2 deletions

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"
+    }
+}
+