1 files changed, 61 insertions, 0 deletions
diff --git a/lib9p/tests/testclient-p9p b/lib9p/tests/testclient-p9p
new file mode 100755
index 0000000..81a7e50
--- /dev/null
+++ b/lib9p/tests/testclient-p9p
@@ -0,0 +1,61 @@
+#!/usr/bin/env bash
+# lib9p/tests/testclient-p9p - Test the 9P `test_server` against Plan 9 Port's `9p` utility
+#
+# Copyright (C) 2025  Luke T. Shumaker <lukeshu@lukeshu.com>
+# SPDX-License-Identifier: AGPL-3.0-or-later
+
+set -euE -o pipefail
+
+if [[ $# != 1 ]]; then
+	echo >&2 "Usage: $0 SERVER_PORT"
+	echo >&2 "Usage: ./runtest $0 EXPLOG"
+	exit 2
+fi
+
+expect_lines() (
+	{ set +x; } &>/dev/null
+	printf >&2 '+ diff -u expected.txt actual.txt\n'
+	diff -u <(printf '%s\n' "$@") <(printf '%s\n' "$out")
+)
+
+set -x
+client=(9p -a "localhost:${1}")
+
+out=$("${client[@]}" ls -l '')
+expect_lines \
+	'd-r-xr-xr-x M 0 root root   0 Oct  7  2024 Documentation' \
+	'--r--r--r-- M 0 root root 166 Oct  7  2024 README.md' \
+	'---w--w--w- M 0 root root   0 Oct  7  2024 shutdown' \
+	'--r--r--r-- M 0 root root   6 Oct  7  2024 slowread' \
+	'--r--r--r-- M 0 root root   6 Oct  7  2024 slowread-flushable'
+
+out=$("${client[@]}" ls -l 'Documentation/')
+expect_lines \
+	'--r--r--r-- M 0 root root 166 Oct  7  2024 x'
+
+out=$("${client[@]}" read 'README.md')
+expect_lines \
+	'<!--' \
+	'  README.md - test static file' \
+	'' \
+	'  Copyright (C) 2024-2025  Luke T. Shumaker <lukeshu@lukeshu.com>' \
+	'  SPDX-License-Identifier: AGPL-3.0-or-later' \
+	'-->' \
+	'Hello, world!'
+
+out=$("${client[@]}" read 'Documentation/x')
+expect_lines \
+	'<!--' \
+	'  Documentation/x.txt - test static file' \
+	'' \
+	'  Copyright (C) 2024-2025  Luke T. Shumaker <lukeshu@lukeshu.com>' \
+	'  SPDX-License-Identifier: AGPL-3.0-or-later' \
+	'-->' \
+	'foo'
+
+out=$("${client[@]}" stat 'Documentation/x')
+expect_lines \
+	"'x' 'root' 'root' 'root' q (0000000000000003 1 ) m 0444 at 1728337905 mt 1728337904 l 166 t 0 d 0"
+
+out=$("${client[@]}" write 'shutdown' <<<1)
+expect_lines ''