From 66993321af1e67570469a2b9a9731492d0aaff5b Mon Sep 17 00:00:00 2001
From: peter <peter@pmikkelsen.com>
Date: Wed, 7 Oct 2026 19:14:04 +0000
Subject: [de3a009ef3] Write a very basic "hello world" test which verifies
 that the program outputs the correct message.

This fails for now, as the interpreter isn't implemented yet, but it's a good way to start doing test-driven development.

FossilOrigin-Name: f34934025a9f22b574c1076b05673b94a4f40d8a55c723fced7c055155042c57
---
 tests/scripts/good/4.aplwc        | 6 ++++++
 tests/scripts/good/4.aplwc.output | 1 +
 tests/scripts/simfail.sh          | 5 +++++
 3 files changed, 12 insertions(+)
 create mode 100644 tests/scripts/good/4.aplwc
 create mode 100644 tests/scripts/good/4.aplwc.output

(limited to 'tests/scripts')

diff --git a/tests/scripts/good/4.aplwc b/tests/scripts/good/4.aplwc
new file mode 100644
index 0000000..a260efc
--- /dev/null
+++ b/tests/scripts/good/4.aplwc
@@ -0,0 +1,6 @@
+:module Main
+:run Main
+
+∇ Main
+  ⎕←'Hello from aplwc'
+∇
diff --git a/tests/scripts/good/4.aplwc.output b/tests/scripts/good/4.aplwc.output
new file mode 100644
index 0000000..180ee04
--- /dev/null
+++ b/tests/scripts/good/4.aplwc.output
@@ -0,0 +1 @@
+Hello from aplwc
diff --git a/tests/scripts/simfail.sh b/tests/scripts/simfail.sh
index 75b97ab..394f223 100755
--- a/tests/scripts/simfail.sh
+++ b/tests/scripts/simfail.sh
@@ -1,5 +1,10 @@
 #!/bin/sh
 
+if [ ! -x "$1" ]
+then
+	exit 0
+fi
+
 START=0
 COUNT=1
 
-- 
cgit v1.2.3