Adding upstream version 23.7.upstream/23.7upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 19 insertions, 0 deletions

diff --git a/testsuite/pslog.test/pslog.exp b/testsuite/pslog.test/pslog.exp
new file mode 100644
index 0000000..b8d0e01
--- /dev/null
+++ b/testsuite/pslog.test/pslog.exp
@@ -0,0 +1,19 @@
+#
+# Testsuite for pslog
+#
+
+set pslog "${topdir}src/pslog"
+set fake_pid "27000"
+
+set test "pslog with no arguments"
+spawn $pslog
+expect_pass "$test" "^Usage: pslog PID\\.\\.\\."
+
+set test "pslog pid not found"
+if { [ file exists "/proc/$fake_pid" ] } {
+    untested "$test (PID exists)"
+} else {
+    spawn $pslog ${fake_pid}
+    expect_pass "$test" "opendir: No such file or directory"
+}
+